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 /TESTING/LIN/dchkrfp.f | |
parent | 3a8426619c561e9ccb35450210cf33581784b11c (diff) | |
download | lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.tar.gz lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.tar.bz2 lapack-13e3907347d43a4ebfe604c9e7370f1577417f78.zip |
Remove redundant IF in TESTING/LIN/*chkrfp.f
Diffstat (limited to 'TESTING/LIN/dchkrfp.f')
-rw-r--r-- | TESTING/LIN/dchkrfp.f | 5 |
1 files changed, 0 insertions, 5 deletions
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' ) |