summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--TESTING/LIN/cchkrfp.f5
-rw-r--r--TESTING/LIN/dchkrfp.f5
-rw-r--r--TESTING/LIN/schkrfp.f5
-rw-r--r--TESTING/LIN/zchkrfp.f5
4 files changed, 0 insertions, 20 deletions
diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f
index 6e903eb..df16ad7 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 d6c50fb..2b3a883 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 75d19e3..e3406f1 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 27586a4..ece4a34 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' )