9 August    2009   9:57:29.542 AM      
 
TABLE_IO_PRB
  FORTRAN77 version:
 
  Test the routines in the TABLE_IO library.
 
TEST01
  R8MAT_WRITE writes an R8MAT file.
 
  Spatial dimension M =        5
  Number of points N  =       20
 
  5x5 portion of the data written to file:
 
  Col         1             2             3             4             5       
  Row
 
    1    10.1000       20.1000       30.1000       40.1000       50.1000    
    2    10.2000       20.2000       30.2000       40.2000       50.2000    
    3    10.3000       20.3000       30.3000       40.3000       50.3000    
    4    10.4000       20.4000       30.4000       40.4000       50.4000    
    5    10.5000       20.5000       30.5000       40.5000       50.5000    
 
  5x5 portion of the TRANSPOSED data:
 
       Row       1             2             3             4             5      
       Col
         1   10.1000       10.2000       10.3000       10.4000       10.5000    
         2   20.1000       20.2000       20.3000       20.4000       20.5000    
         3   30.1000       30.2000       30.3000       30.4000       30.5000    
         4   40.1000       40.2000       40.3000       40.4000       40.5000    
         5   50.1000       50.2000       50.3000       50.4000       50.5000    
 
  Wrote the file "r8mat_05_00020.txt                                                              ".
 
TEST02
  For an R8MAT file,
  R8MAT_HEADER_READ reads the header
  (about the dimensions of the data);
  R8MAT_DATA_READ reads the data.
 
  Read the header of "r8mat_05_00020.txt                                                              ".
 
  Spatial dimension M =        5
  Number of points N  =       20
 
  Read the data in "r8mat_05_00020.txt                                                              ".
 
  5x5 portion of data read from file:
 
  Col         1             2             3             4             5       
  Row
 
    1    10.1000       20.1000       30.1000       40.1000       50.1000    
    2    10.2000       20.2000       30.2000       40.2000       50.2000    
    3    10.3000       20.3000       30.3000       40.3000       50.3000    
    4    10.4000       20.4000       30.4000       40.4000       50.4000    
    5    10.5000       20.5000       30.5000       40.5000       50.5000    
 
TEST03
  I4MAT_WRITE writes an I4MAT file.
 
  Spatial dimension M =        5
  Number of points N  =       20
 
  5 x 5 portion of data written to file:
 
  Col        1       2       3       4       5
  Row
 
    1      101     201     301     401     501
    2      102     202     302     402     502
    3      103     203     303     403     503
    4      104     204     304     404     504
    5      105     205     305     405     505
 
  Wrote the header and data for "i4mat_05_00020.txt                                                              ".
 
TEST04
  Foran I4MAT file,
  I4MAT_HEADER_READ reads the header
  (about the dimensions of the data);
  I4MAT_DATA_READ reads the data.
 
  Read the header of "i4mat_05_00020.txt                                                              ".
 
  Spatial dimension M =        5
  Number of points N  =       20
 
  Read the data in "i4mat_05_00020.txt                                                              ".
 
  5 x 5 portion of data read from file:
 
  Col        1       2       3       4       5
  Row
 
    1      101     201     301     401     501
    2      102     202     302     402     502
    3      103     203     303     403     503
    4      104     204     304     404     504
    5      105     205     305     405     505
 
TEST05
  R8MAT_UNIFORM_01 sets a random R8MAT.
 
  Spatial dimension M =        2
  Number of points N  =       10
 
  5x10 portion of random real table dataset:
 
  Col         1             2             3             4             5       
  Row
 
    1   0.218418      0.829509      0.415307      0.257578      0.438290E-01
    2   0.956318      0.561695      0.661187E-01  0.109957      0.633966    
 
  Col         6             7             8             9            10       
  Row
 
    1   0.617272E-01  0.401306      0.797287      0.897504      0.945448E-01
    2   0.449539      0.754673      0.183837E-02  0.350752      0.136169E-01
 
TEST06
  I4MAT_BORDER_CUT cuts off the border;
  I4MAT_BORDER_ADD adds a zero border.
 
  Spatial dimension M =        6
  Number of points N  =        4
 
  Initial dataset:
 
  Col        1       2       3       4
  Row
 
    1       11      12      13      14
    2       21      22      23      24
    3       31      32      33      34
    4       41      42      43      44
    5       51      52      53      54
    6       61      62      63      64
 
  "Cut" dataset:
 
  Col        1       2
  Row
 
    1       22      23
    2       32      33
    3       42      43
    4       52      53
 
  "Added" dataset:
 
  Col        1       2       3       4
  Row
 
    1        0       0       0       0
    2        0      22      23       0
    3        0      32      33       0
    4        0      42      43       0
    5        0      52      53       0
    6        0       0       0       0
 
TABLE_IO_PRB
  Normal end of execution.
 
 9 August    2009   9:57:29.554 AM