Lines Matching full:9998
290 WRITE( NOUT, FMT = 9998 )EPS
403 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, E9.1 )
698 $ WRITE( NOUT, FMT = 9998 )I
764 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1043 $ WRITE( NOUT, FMT = 9998 )I
1109 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1395 $ WRITE( NOUT, FMT = 9998 )I
1473 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1679 $ WRITE( NOUT, FMT = 9998 )I
1752 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1948 $ WRITE( NOUT, FMT = 9998 )I
2035 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2255 $ WRITE( NOUT, FMT = 9998 )I
2355 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2706 WRITE( NOUT, FMT = 9998 )SRNAMT
2711 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
3022 WRITE( NOUT, FMT = 9998 )I, YT( I ),
3025 WRITE( NOUT, FMT = 9998 )I,
3036 9998 FORMAT( 1X, I7, 2( ' (', G15.6, ',', G15.6, ')' ) )
3264 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3271 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
