Lines Matching full:9998
291 WRITE( NOUT, FMT = 9998 )EPS
404 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
700 $ WRITE( NOUT, FMT = 9998 )I
766 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1046 $ WRITE( NOUT, FMT = 9998 )I
1112 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1399 $ WRITE( NOUT, FMT = 9998 )I
1477 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1684 $ WRITE( NOUT, FMT = 9998 )I
1757 9998
1954 $ WRITE( NOUT, FMT = 9998 )I
2041 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2262 $ WRITE( NOUT, FMT = 9998 )I
2362 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2713 WRITE( NOUT, FMT = 9998 )SRNAMT
2718 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
3030 WRITE( NOUT, FMT = 9998 )I, YT( I ),
3033 WRITE( NOUT, FMT = 9998 )I,
3044 9998 FORMAT( 1X, I7, 2( ' (', G15.6, ',', G15.6, ')' ) )
3272 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3279 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
