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

---
 Dragon/src/MACUPD.f | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'Dragon/src/MACUPD.f')

diff --git a/Dragon/src/MACUPD.f b/Dragon/src/MACUPD.f
index 8efd97c..9246aae 100644
--- a/Dragon/src/MACUPD.f
+++ b/Dragon/src/MACUPD.f
@@ -1,6 +1,6 @@
 *DECK MACUPD
       SUBROUTINE MACUPD(NENTRY,KENTRY,IPRINT,NTOTMX,NBMIX ,NGROUP,
-     >                  NANISO,NIFISS,NEDMAC,ITRANC)
+     >                  NANISO,NIFISS,NEDMAC,ITRANC,ILEAK,NW)
 *
 *-----------------------------------------------------------------------
 *
@@ -27,6 +27,8 @@
 * NIFISS  number fissile isotopes per mixture.
 * NEDMAC  number of aditional edition x-s.
 * ITRANC  type of transport correction.
+* ILEAK   type of diffusion coefficient information.
+* NW      weighting flag (=0/1: P1-weighted information absent/present).
 *
 *-----------------------------------------------------------------------
 *
@@ -37,7 +39,7 @@
 *----
       TYPE(C_PTR)  KENTRY(NENTRY)
       INTEGER      NENTRY,IPRINT,NTOTMX,NBMIX,NGROUP,NANISO,NIFISS,
-     >             NEDMAC,ITRANC
+     >             NEDMAC,ITRANC,ILEAK,NW
 *----
 *  LOCAL VARIABLES
 *----
@@ -200,6 +202,8 @@
             NIFISO=ISTATE(4)
             NEDO=ISTATE(5)
             NDELO=ISTATE(7)
+            ILEAK=MIN(ILEAK,ISTATE(9))
+            NW=MIN(NW,ISTATE(10))
             CALL MACNFI(IPMACR,IPRINT,IEN   ,NTOTMX,NGROUP,NIFISS,
      >                  NEDMAC,NBMIXF,NGROF ,NIFISF,NEDF  ,NDELF ,
      >                  NBMIXO,NIFISO,NEDO  ,NDELO ,IMLOC ,ENERN ,
-- 
cgit v1.2.3