Lines Matching full:9998
232 WRITE( NOUT, FMT = 9998 )EPS
367 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
606 $ WRITE( NOUT, FMT = 9998 )I
661 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
871 $ WRITE( NOUT, FMT = 9998 )I
931 9998
1144 $ WRITE( NOUT, FMT = 9998 )I
1237 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1428 $ WRITE( NOUT, FMT = 9998 )I
1511 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1726 $ WRITE( NOUT, FMT = 9998 )I
1824 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2384 WRITE( NOUT, FMT = 9998 )SRNAMT
2389 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2610 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2612 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2624 9998 FORMAT( 1X, I7, 2G18.6 )
2858 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
2865 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
