3 February 2014 8:26:15.291 AM DLAP_IO_PRB: FORTRAN90 version Test the DLAP_IO library. TEST01 DLAP_FILE_WRITE writes a matrix in SLAP Triad format to a DLAP sparse matrix file. The DLAP data to be written to the file. DLAP Sparse Matrix File Header: N, the matrix order = 5 NELT, the number of nonzeros stored = 11 ISYM, 1 if symmetric storage used = 0 IRHS, 1 if a right hand side included = 1 ISOLN, 1 if a solution vector included = 1 The sparse matrix Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 0.00000 0.00000 15.0000 2 21.0000 22.0000 0.00000 0.00000 0.00000 3 0.00000 0.00000 33.0000 0.00000 35.0000 4 0.00000 0.00000 0.00000 44.0000 0.00000 5 51.0000 0.00000 53.0000 0.00000 55.0000 DLAP right hand side vector: 1 110.00000 2 65.000000 3 274.00000 4 176.00000 5 485.00000 DLAP solution vector: 1 1.0000000 2 2.0000000 3 3.0000000 4 4.0000000 5 5.0000000 Wrote the matrix data to "a5by5.dlap". TEST02 DLAP_FILE_READ reads a matrix from a SLAP sparse matrix file into DLAP Triad format. Read the matrix data from "a5by5.dlap". The DLAP data read from the file. DLAP Sparse Matrix File Header: N, the matrix order = 5 NELT, the number of nonzeros stored = 11 ISYM, 1 if symmetric storage used = 0 IRHS, 1 if a right hand side included = 1 ISOLN, 1 if a solution vector included = 1 The sparse matrix Col: 1 2 3 4 5 Row --- 1 11.0000 12.0000 0.00000 0.00000 15.0000 2 21.0000 22.0000 0.00000 0.00000 0.00000 3 0.00000 0.00000 33.0000 0.00000 35.0000 4 0.00000 0.00000 0.00000 44.0000 0.00000 5 51.0000 0.00000 53.0000 0.00000 55.0000 DLAP right hand side vector: 1 110.00000 2 65.000000 3 274.00000 4 176.00000 5 485.00000 DLAP solution vector: 1 1.0000000 2 2.0000000 3 3.0000000 4 4.0000000 5 5.0000000 TEST03 DLAP_FILE_WRITE writes a matrix in SLAP Triad format to a DLAP sparse matrix file. In this example, symmetric storage is used. The DLAP data to be written to the file. DLAP Sparse Matrix File Header: N, the matrix order = 5 NELT, the number of nonzeros stored = 9 ISYM, 1 if symmetric storage used = 1 IRHS, 1 if a right hand side included = 1 ISOLN, 1 if a solution vector included = 1 The sparse matrix Col: 1 2 3 4 5 Row --- 1 11.0000 0.00000 31.0000 0.00000 51.0000 2 0.00000 22.0000 0.00000 0.00000 0.00000 3 31.0000 0.00000 33.0000 43.0000 0.00000 4 0.00000 0.00000 43.0000 44.0000 54.0000 5 51.0000 0.00000 0.00000 54.0000 55.0000 DLAP right hand side vector: 1 359.00000 2 44.000000 3 302.00000 4 575.00000 5 542.00000 DLAP solution vector: 1 1.0000000 2 2.0000000 3 3.0000000 4 4.0000000 5 5.0000000 Wrote the matrix data to "a5by5_sym.dlap". TEST04 DLAP_FILE_READ reads a matrix from a SLAP sparse matrix file into DLAP Triad format. In this example, symmetric storage is used. Read the matrix data from "a5by5_sym.dlap". The DLAP data read from the file. DLAP Sparse Matrix File Header: N, the matrix order = 5 NELT, the number of nonzeros stored = 9 ISYM, 1 if symmetric storage used = 1 IRHS, 1 if a right hand side included = 1 ISOLN, 1 if a solution vector included = 1 The sparse matrix Col: 1 2 3 4 5 Row --- 1 11.0000 0.00000 31.0000 0.00000 51.0000 2 0.00000 22.0000 0.00000 0.00000 0.00000 3 31.0000 0.00000 33.0000 43.0000 0.00000 4 0.00000 0.00000 43.0000 44.0000 54.0000 5 51.0000 0.00000 0.00000 54.0000 55.0000 DLAP right hand side vector: 1 359.00000 2 44.000000 3 302.00000 4 575.00000 5 542.00000 DLAP solution vector: 1 1.0000000 2 2.0000000 3 3.0000000 4 4.0000000 5 5.0000000 DLAP_IO_PRB: Normal end of execution. 3 February 2014 8:26:15.302 AM