Lines Matching full:9997
156 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
169 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
182 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
195 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
202 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
366 9997 FORMAT( ' NUMBER OF VALUES OF ', A, ' IS LESS THAN 1 OR GREATER ',
708 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
729 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1051 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1075 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1417 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1440 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1702 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1720 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1982 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2004 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2302 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2325 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
3229 WRITE( NOUT, FMT = 9997 )INFO
3243 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
