Lines Matching full:9998
193 WRITE( NOUT, FMT = 9998 )EPS
328 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, E9.1 )
567 $ WRITE( NOUT, FMT = 9998 )I
622 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
832 $ WRITE( NOUT, FMT = 9998 )I
892 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1105 $ WRITE( NOUT, FMT = 9998 )I
1198 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1389 $ WRITE( NOUT, FMT = 9998 )I
1472 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1687 $ WRITE( NOUT, FMT = 9998 )I
1785 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2333 WRITE( NOUT, FMT = 9998 )SRNAMT
2338 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
2559 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2561 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2573 9998 FORMAT( 1X, I7, 2G18.6 )
2808 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
2815 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
