1 files changed, 4 insertions, 1 deletions
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)