Lines Matching full:9997
150 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
163 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
176 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
189 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
196 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
360 9997 FORMAT( ' NUMBER OF VALUES OF ', A, ' IS LESS THAN 1 OR GREATER ',
696 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
717 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1034 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1058 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1393 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1416 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1662 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1680 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1934 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1956 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2248 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2271 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
3118 WRITE( NOUT, FMT = 9997 )INFO
3132 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
