July 21 2007 11:36:55.400 AM TABLE_IO_PRB FORTRAN90 version: Test the routines in the TABLE_IO library. TEST01 DTABLE_WRITE writes a double precision real TABLE 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 header and data for "dtable_05_00020.txt". TEST02 For double precision real data stored in a TABLE file, DTABLE_HEADER_READ reads the header information (about the dimensions of the data); DTABLE_DATA_READ reads the data. Read the header of "dtable_05_00020.txt". Spatial dimension M = 5 Number of points N = 20 Read the data in "dtable_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 ITABLE_WRITE writes an integer TABLE 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 "itable_05_00020.txt". TEST04 For integer data stored in a TABLE file, ITABLE_HEADER_READ reads the header information (about the dimensions of the data); ITABLE_DATA_READ reads the data. Read the header of "itable_05_00020.txt". Spatial dimension M = 5 Number of points N = 20 Read the data in "itable_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 double precision table dataset. Spatial dimension M = 2 Number of points N = 10 5x10 portion of random real table dataset: Col 1 2 3 4 5 Row 1 .218418 .829509 .415307 .257578 0.438290E-01 2 .956318 .561695 0.661187E-01 .109957 .633966 Col 6 7 8 9 10 Row 1 0.617272E-01 .401306 .797287 .897504 0.945448E-01 2 .449539 .754673 0.183837E-02 .350752 0.136169E-01 TEST06 ITABLE_DATA_BORDER_CUT cuts off the border; ITABLE_DATA_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. July 21 2007 11:36:55.433 AM