Lines Matching full:9997
155 WRITE( NOUT, FMT = 9997 )'N', NIDMAX
168 WRITE( NOUT, FMT = 9997 )'K', NKBMAX
181 WRITE( NOUT, FMT = 9997 )'INCX AND INCY', NINMAX
194 WRITE( NOUT, FMT = 9997 )'ALPHA', NALMAX
201 WRITE( NOUT, FMT = 9997 )'BETA', NBEMAX
365 9997 FORMAT( ' NUMBER OF VALUES OF ', A, ' IS LESS THAN 1 OR GREATER ',
706 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
727 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1048 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1072 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1413 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1436 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1697 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1715 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1976 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
1998 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2295 WRITE( NOUT, FMT = 9997 )SNAME, NC, ERRMAX
2318 9997 FORMAT( ' ', A6, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
3221 WRITE( NOUT, FMT = 9997 )INFO
3235 9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
