From b7966d4acd159b0225b66c498da7e954a0edd6d7 Mon Sep 17 00:00:00 2001
From: Ashley Milsted <ammilste@amazon.com>
Date: Mon, 15 Jun 2026 10:38:52 -0700
Subject: [PATCH] Scale FAIL with SPDIAM in xLARRF. Fixes #995.

---
 SRC/dlarrf.f | 2 +-
 SRC/slarrf.f | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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 @@ SUBROUTINE DLARRF( N, D, L, LD, CLSTRT, CLEND,
       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 @@ SUBROUTINE SLARRF( N, D, L, LD, CLSTRT, CLEND,
       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.