diff options
Diffstat (limited to 'TESTING/LIN/zchkrfp.f')
-rw-r--r-- | TESTING/LIN/zchkrfp.f | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index 27586a44..ece4a34e 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -218,11 +218,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' ) |