Lines Matching full:10001
178 WRITE( *, FMT = 10001 )
392 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )
683 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
704 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1009 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1030 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1360 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1381 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1733 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
1763 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2186 IF ( IORDER.EQ.1) WRITE( NOUT, FMT = 10001 )SNAME, NC
2216 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
