Lines Matching full:9998
251 WRITE( NOUT, FMT = 9998 )EPS
364 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, E9.1 )
659 $ WRITE( NOUT, FMT = 9998 )I
725 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1004 $ WRITE( NOUT, FMT = 9998 )I
1070 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1356 $ WRITE( NOUT, FMT = 9998 )I
1434 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1640 $ WRITE( NOUT, FMT = 9998 )I
1713 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1909 $ WRITE( NOUT, FMT = 9998 )I
1996 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2216 $ WRITE( NOUT, FMT = 9998 )I
2316 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2667 WRITE( NOUT, FMT = 9998 )SRNAMT
2672 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2983 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2986 WRITE( NOUT, FMT = 9998 )I,
2997 9998 FORMAT( 1X, I7, 2( ' (', G15.6, ',', G15.6, ')' ) )
3226 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3233 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
