Lines Matching defs:FATAL
65 LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,
236 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
245 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
263 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
272 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
296 FATAL = .FALSE.
302 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
308 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
316 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
322 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
336 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
344 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
350 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
358 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
364 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET,
370 190 IF( FATAL.AND.SFATAL )
419 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
426 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
448 LOGICAL FATAL, REWI, TRACE
610 FATAL = .TRUE.
645 FATAL = .TRUE.
656 $ ERR, FATAL, NOUT, .TRUE. )
660 IF( FATAL )
707 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
713 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
756 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
778 LOGICAL FATAL, REWI, TRACE
932 FATAL = .TRUE.
966 FATAL = .TRUE.
978 $ FATAL, NOUT, .TRUE. )
983 $ FATAL, NOUT, .TRUE. )
988 IF( FATAL )
1033 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1039 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1078 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1099 LOGICAL FATAL, REWI, TRACE
1251 FATAL = .TRUE.
1284 FATAL = .TRUE.
1298 $ FATAL, NOUT, .TRUE. )
1304 $ FATAL, NOUT, .TRUE. )
1325 $ FATAL, NOUT, .FALSE. )
1331 $ FATAL, NOUT, .FALSE. )
1337 IF( FATAL )
1384 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1390 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1441 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1463 LOGICAL FATAL, REWI, TRACE
1626 FATAL = .TRUE.
1666 FATAL = .TRUE.
1694 $ FATAL, NOUT, .TRUE. )
1701 $ FATAL, NOUT, .TRUE. )
1711 IF( FATAL )
1766 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1776 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1851 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1873 LOGICAL FATAL, REWI, TRACE
2051 FATAL = .TRUE.
2089 FATAL = .TRUE.
2130 $ EPS, ERR, FATAL, NOUT,
2152 $ FATAL, NOUT, .TRUE. )
2164 IF( FATAL )
2219 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2229 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2433 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2455 LOGICAL FATAL, MV
2596 230 FATAL = .TRUE.
2611 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',