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.

diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f
index 51c25d7..e25a09d 100644 (file)
--- a/SRC/dlarrf.f
+++ b/SRC/dlarrf.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

diff --git a/SRC/slarrf.f b/SRC/slarrf.f
index 076fa48..a15552b 100644 (file)
--- 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