From 21eee4433018ddfafe5e5164c85c9e1911077e39 Mon Sep 17 00:00:00 2001 From: Richard Methot Date: Fri, 23 May 2025 11:42:18 -0700 Subject: [PATCH] fix 2dar control_ssnew --- SS_write_ssnew.tpl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/SS_write_ssnew.tpl b/SS_write_ssnew.tpl index 766b60ca..04c450d2 100644 --- a/SS_write_ssnew.tpl +++ b/SS_write_ssnew.tpl @@ -2624,7 +2624,9 @@ FUNCTION void write_nucontrol() int sigma_amax = tempvec(6); int use_rho = tempvec(7); int amin = tempvec(4); - for (a = amin; a <= sigma_amax; a++) + int kmax = sigma_amax; + if (kmax < 0) kmax = amin; + for (a = amin; a <= kmax; a++) { dvector dtempvec(1, 7); // Lo, Hi, init, prior, prior_sd, prior_type, phase; k++;