Lines Matching full:9997
133 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
146 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
153 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
338 9997 FORMAT( ' NUMBER OF VALUES OF ', A, ' IS LESS THAN 1 OR GREATER ',
623 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
639 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
902 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
918 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1213 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1229 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1532 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1557 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1906 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1931 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
3179 $ WRITE( NOUT, FMT = 9997 )J
3188 9997 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
3425 WRITE( NOUT, FMT = 9997 )INFO
3439 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
