Remove redundant IF in TESTING/LIN/*chkrfp.f

diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f
index 6e903eb..df16ad7 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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' )