diff --git a/SRC/dlarrf.f b/SRC/dlarrf.f index 1f1b8c7db..9b6fe329b 100644 --- a/SRC/dlarrf.f +++ b/SRC/dlarrf.f @@ -465,7 +465,7 @@ ELSE * None of the representations investigated satisfied our * criteria. Take the best one we found. - IF((SMLGROWTH.LT.FAIL).OR.NOFAIL) THEN + IF((SMLGROWTH.LT.FAIL*SPDIAM).OR.NOFAIL) THEN LSIGMA = BESTSHIFT RSIGMA = BESTSHIFT FORCER = .TRUE. diff --git a/SRC/slarrf.f b/SRC/slarrf.f index 33486f73e..7eeae0a38 100644 --- a/SRC/slarrf.f +++ b/SRC/slarrf.f @@ -465,7 +465,7 @@ ELSE * None of the representations investigated satisfied our * criteria. Take the best one we found. - IF((SMLGROWTH.LT.FAIL).OR.NOFAIL) THEN + IF((SMLGROWTH.LT.FAIL*SPDIAM).OR.NOFAIL) THEN LSIGMA = BESTSHIFT RSIGMA = BESTSHIFT FORCER = .TRUE.