diff options
Diffstat (limited to 'TESTING/LIN/dchkrfp.f')
| -rw-r--r-- | TESTING/LIN/dchkrfp.f | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index d6c50fba..2b3a8832 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -217,11 +217,6 @@ STOP END IF * - IF( FATAL ) THEN - WRITE( NOUT, FMT = 9999 ) - STOP - END IF -* * Calculate and print the machine dependent constants. * EPS = DLAMCH( 'Underflow threshold' ) |