Lines Matching full:9997
125 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
138 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
145 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
329 9997 FORMAT( ' NUMBER OF VALUES OF ', A, ' IS LESS THAN 1 OR GREATER ',
608 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
624 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
878 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
894 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1184 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1200 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1454 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1474 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1767 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1787 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2565 $ WRITE( NOUT, FMT = 9997 )J
2574 9997 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
2803 WRITE( NOUT, FMT = 9997 )INFO
2817 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
