diff options
| author | julie <julielangou@users.noreply.github.com> | 2015-10-27 03:16:53 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2015-10-27 03:16:53 +0000 |
| commit | c8aff6931d5696f80103d8403443ca2a483e0d75 (patch) | |
| tree | 34804772c989e18c8a99b75406b6b3b927fb779f /SRC/slarrf.f | |
| parent | 56a076911e04ba0c6e64a071b89ae5853d78f96d (diff) | |
| download | lapack-c8aff6931d5696f80103d8403443ca2a483e0d75.tar.gz lapack-c8aff6931d5696f80103d8403443ca2a483e0d75.tar.bz2 lapack-c8aff6931d5696f80103d8403443ca2a483e0d75.zip | |
Committing temporary fix for bug 113
Submitted by Osni Marques on Oct 22nd 2015
we just need to set the variable NOFAIL to .false. in _larrf.f (line 260).
As it is now, dsyevr may enter into an infinite loop in some rare cases.
With NOFAIL=.false. the code will return an error message.
Diffstat (limited to 'SRC/slarrf.f')
| -rw-r--r-- | SRC/slarrf.f | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/SRC/slarrf.f b/SRC/slarrf.f index 076fa484..a15552b7 100644 --- a/SRC/slarrf.f +++ b/SRC/slarrf.f @@ -257,7 +257,8 @@ * Decide whether the code should accept the best among all * representations despite large element growth or signal INFO=1 - NOFAIL = .TRUE. +* Setting NOFAIL to .FALSE. for quick fix for bug 113 + NOFAIL = .FALSE. * * Compute the average gap length of the cluster |