From 682f80f4357f30780939ac84b8e2937233c647da Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Fri, 19 Dec 2025 10:57:23 -0500
Subject: #20: Correct a NTOT1 issue in SPN Bivac/Trivac solutions

---
 Donjon/src/MACINI.f | 1 +
 Donjon/src/NCR.f    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'Donjon/src')

diff --git a/Donjon/src/MACINI.f b/Donjon/src/MACINI.f
index 86037d0..8e4ad6f 100644
--- a/Donjon/src/MACINI.f
+++ b/Donjon/src/MACINI.f
@@ -238,6 +238,7 @@
       ENDIF
       ISTATE(7)=NDEL
       ISTATE(9)=LEAK
+      ISTATE(10)=MIN(NW1,NW2)
       CALL LCMPUT(IPMAC,'STATE-VECTOR',NSTATE,1,ISTATE)
       HSIGN='L_MACROLIB'
       CALL LCMPTC(IPMAC,'SIGNATURE',12,HSIGN)
diff --git a/Donjon/src/NCR.f b/Donjon/src/NCR.f
index 389e70b..e26d73d 100644
--- a/Donjon/src/NCR.f
+++ b/Donjon/src/NCR.f
@@ -61,7 +61,7 @@
 *  LOCAL VARIABLES
 *----
       INTEGER, PARAMETER::IOUT=6
-      INTEGER, PARAMETER::MAXISD=200
+      INTEGER, PARAMETER::MAXISD=500
       INTEGER, PARAMETER::NSTATE=40
       REAL B2, FLOTT
       INTEGER I, I0, IACCS, ILENG, IMPX, INDIC, ITER, ITH, ITYLCM, ITYP,
-- 
cgit v1.2.3