Lines Matching full:9998
246 WRITE( NOUT, FMT = 9998 )EPS
359 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
649 $ WRITE( NOUT, FMT = 9998 )I
715 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
990 $ WRITE( NOUT, FMT = 9998 )I
1056 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1336 $ WRITE( NOUT, FMT = 9998 )I
1414 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1607 $ WRITE( NOUT, FMT = 9998 )I
1678 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1867 $ WRITE( NOUT, FMT = 9998 )I
1954 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2169 $ WRITE( NOUT, FMT = 9998 )I
2269 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2601 WRITE( NOUT, FMT = 9998 )SRNAMT
2606 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2886 WRITE( NOUT, FMT = 9998 )I, YT( I ),
2889 WRITE( NOUT, FMT = 9998 )I,
2900 9998 FORMAT( 1X, I7, 2G18.6 )
3123 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3130 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
