Lines Matching full:9998
201 WRITE( NOUT, FMT = 9998 )EPS
337 9998 FORMAT( ' RELATIVE MACHINE PRECISION IS TAKEN TO BE', 1P, D9.1 )
582 $ WRITE( NOUT, FMT = 9998 )I
637 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
856 $ WRITE( NOUT, FMT = 9998 )I
916 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1134 $ WRITE( NOUT, FMT = 9998 )I
1227 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1462 $ WRITE( NOUT, FMT = 9998 )I
1555 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1806 $ WRITE( NOUT, FMT = 9998 )I
1929 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2863 WRITE( NOUT, FMT = 9998 )SRNAMT
2868 9998 FORMAT( ' ******* ', A6, ' FAILED THE TESTS OF ERROR-EXITS *****',
3173 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
3175 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
3187 9998 FORMAT( 1X, I7, 2( ' (', G15.6, ',', G15.6, ')' ) )
3430 WRITE( NOUT, FMT = 9998 )SRNAME, SRNAMT
3437 9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A6, ' INSTE',
