Lines Matching full:9998
285 WRITE( NOUT, FMT = 9998 )EPS
398 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
688 $ WRITE( NOUT, FMT = 9998 )I
754 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1029 $ WRITE( NOUT, FMT = 9998 )I
1095 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1375 $ WRITE( NOUT, FMT = 9998 )I
1453 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1646 $ WRITE( NOUT, FMT = 9998 )I
1717 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1906 $ WRITE( NOUT, FMT = 9998 )I
1993 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2208 $ WRITE( NOUT, FMT = 9998 )I
2308 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2640 WRITE( NOUT, FMT = 9998 )SRNAMT
2645 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2925 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2928 WRITE( NOUT, FMT = 9998 )I,
2939 9998 FORMAT( 1X, I7, 2G18.6 )
3161 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3168 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
