Lines Matching full:9998
252 WRITE( NOUT, FMT = 9998 )EPS
365 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
661 $ WRITE( NOUT, FMT = 9998 )I
727 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1007 $ WRITE( NOUT, FMT = 9998 )I
1073 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1360 $ WRITE( NOUT, FMT = 9998 )I
1438 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1645 $ WRITE( NOUT, FMT = 9998 )I
1718 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1915 $ WRITE( NOUT, FMT = 9998 )I
2002 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2223 $ WRITE( NOUT, FMT = 9998 )I
2323 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2674 WRITE( NOUT, FMT = 9998 )SRNAMT
2679 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2991 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2994 WRITE( NOUT, FMT = 9998 )I,
3005 9998 FORMAT( 1X, I7, 2( ' (', G15.6, ',', G15.6, ')' ) )
3234 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3241 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
