Lines Matching full:9997
132 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
145 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
152 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
337 9997 FORMAT( ' NUMBER OF VALUES OF ', A, ' IS LESS THAN 1 OR GREATER ',
622 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
638 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
901 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
917 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1211 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1227 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1530 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1555 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1903 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1928 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
3173 $ WRITE( NOUT, FMT = 9997 )J
3182 9997 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
3419 WRITE( NOUT, FMT = 9997 )INFO
3433 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
