summaryrefslogtreecommitdiff
path: root/Donjon/src/MACINI.f
diff options
context:
space:
mode:
authorAlain Hebert <alainhebert@Alains-MacBook-Pro.local>2025-12-19 10:57:23 -0500
committerAlain Hebert <alainhebert@Alains-MacBook-Pro.local>2025-12-19 10:57:23 -0500
commit682f80f4357f30780939ac84b8e2937233c647da (patch)
tree837b47785e7876046a80ea6391c5d3b445b2d5ba /Donjon/src/MACINI.f
parent338c590068f0f867d89c78598af32f121df1936a (diff)
#20: Correct a NTOT1 issue in SPN Bivac/Trivac solutions
Diffstat (limited to 'Donjon/src/MACINI.f')
-rw-r--r--Donjon/src/MACINI.f1
1 files changed, 1 insertions, 0 deletions
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)