diff options
| author | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-21 19:50:03 -0500 |
|---|---|---|
| committer | HEBERT Alain <alain.hebert@polymtl.ca> | 2025-12-21 19:50:03 -0500 |
| commit | 64491754efcb832b71915f66cd7301fedcc72df7 (patch) | |
| tree | ed40c4131e0c1b4493183936f34d2233a7ec4cfe /Dragon/src/MACUPD.f | |
| parent | 5c0d4cce527b0d42dc794a475550783ea846b30a (diff) | |
| parent | 33730217cfd6de8a38c93c2400265e4025ab404a (diff) | |
Merge branch '20-correct-a-ntot1-issue-in-spn-bivac-trivac-solutions' into 'main'
#20: Correct more issues in non-regression tests
See merge request dragon/5.1!36
Diffstat (limited to 'Dragon/src/MACUPD.f')
| -rw-r--r-- | Dragon/src/MACUPD.f | 8 |
1 files changed, 6 insertions, 2 deletions
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 , |