From 33730217cfd6de8a38c93c2400265e4025ab404a Mon Sep 17 00:00:00 2001
From: Alain Hebert <alainhebert@Alains-MacBook-Pro.local>
Date: Sun, 21 Dec 2025 19:25:34 -0500
Subject: #20: Correct more issues in non-regression tests

---
 Donjon/src/DSPH.f | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/Donjon/src/DSPH.f b/Donjon/src/DSPH.f
index f52b811..f78fa14 100644
--- a/Donjon/src/DSPH.f
+++ b/Donjon/src/DSPH.f
@@ -98,6 +98,7 @@
       NDEL=ISTATE(7)
       NALBP=ISTATE(8)
       ILEAKS=ISTATE(9)
+      NW=ISTATE(10)
 *----
 *  READ THE INPUT DATA
 *----
@@ -453,7 +454,7 @@
       CALL LCMPUT(MPNEW,'IJJS00',NMIX,1,IJJ)
       CALL LCMPUT(MPNEW,'IPOS00',NMIX,1,NJJ)
       CALL LCMPUT(MPNEW,'NTOT0',NMIX,2,GAR)
-      CALL LCMPUT(MPNEW,'NTOT1',NMIX,2,GAR)
+      IF(IMC.EQ.1) CALL LCMPUT(MPNEW,'NTOT1',NMIX,2,GAR)
       IF(NIFISS.GT.0) THEN
         PER2(:NMIX,:NIFISS)=0.0
         CALL LCMPUT(MPNEW,'NUSIGF',NMIX*NIFISS,2,PER2)
@@ -487,12 +488,14 @@
 *----
 *  SET THE PERTURBED MACROLIB STATE-VECTOR
 *----
+      IF(IMC.EQ.1) NW=1 ! activate NTOT1 flag
       ISTATE(:NSTATE)=0
       ISTATE(1)=NGRP
       ISTATE(2)=NMIX
       ISTATE(3)=1
       ISTATE(7)=NALBP
       ISTATE(9)=ILEAKS
+      ISTATE(10)=NW
       ISTATE(11)=NPERT
       CALL LCMPUT(IPNEW,'STATE-VECTOR',NSTATE,1,ISTATE)
       IF(IMPX.GT.1) CALL LCMLIB(IPNEW)
-- 
cgit v1.2.3