diff options
| -rw-r--r-- | TESTING/LIN/cchkrfp.f | 5 | ||||
| -rw-r--r-- | TESTING/LIN/dchkrfp.f | 5 | ||||
| -rw-r--r-- | TESTING/LIN/schkrfp.f | 5 | ||||
| -rw-r--r-- | TESTING/LIN/zchkrfp.f | 5 |
4 files changed, 0 insertions, 20 deletions
diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index 6e903eb2..df16ad7f 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.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 = SLAMCH( 'Underflow threshold' ) 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' ) diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index 75d19e37..e3406f19 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -216,11 +216,6 @@ STOP END IF * - IF( FATAL ) THEN - WRITE( NOUT, FMT = 9999 ) - STOP - END IF -* * Calculate and print the machine dependent constants. * EPS = SLAMCH( 'Underflow threshold' ) 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' ) |