diff options
| author | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-24 17:51:27 -0700 |
|---|---|---|
| committer | eugene.chereshnev <eugenechereshnev@gmail.com> | 2017-03-26 19:04:36 -0700 |
| commit | 13e3907347d43a4ebfe604c9e7370f1577417f78 (patch) | |
| tree | 99c7f90b738c131c392d8779611c3de27b03e6fe | |
| parent | 3a8426619c561e9ccb35450210cf33581784b11c (diff) | |
| download | lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.tar.gz lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.tar.bz2 lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.zip | |
Remove redundant IF in TESTING/LIN/*chkrfp.f
| -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' ) |