summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreugene.chereshnev <eugenechereshnev@gmail.com>2017-03-25 00:51:27 (GMT)
committereugene.chereshnev <eugenechereshnev@gmail.com>2017-03-27 02:04:36 (GMT)
commit13e3907347d43a4ebfe604c9e7370f1577417f78 (patch)
tree99c7f90b738c131c392d8779611c3de27b03e6fe
parent3a8426619c561e9ccb35450210cf33581784b11c (diff)
downloadlapack-13e3907347d43a4ebfe604c9e7370f1577417f78.zip
lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.tar.gz
lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.tar.bz2
Remove redundant IF in TESTING/LIN/*chkrfp.f
-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' )