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 +
 1 file changed, 1 insertion(+)

(limited to 'Donjon/src/MACINI.f')

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)
-- 
cgit v1.2.3