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/MACDRV.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/MACDRV.f')
| -rw-r--r-- | Dragon/src/MACDRV.f | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/Dragon/src/MACDRV.f b/Dragon/src/MACDRV.f index cbdf780..64a673f 100644 --- a/Dragon/src/MACDRV.f +++ b/Dragon/src/MACDRV.f @@ -1,6 +1,6 @@ *DECK MACDRV SUBROUTINE MACDRV(IPLIST,INDREC,IPRINT,IDF,NBMIX,NGROUP,NANISO, - > NIFISS,NEDMAC,ITRANC,NDELG,NSTEP,NALBP) + > NIFISS,NEDMAC,ITRANC,NDELG,NSTEP,NALBP,ILEAK,NW) * *----------------------------------------------------------------------- * @@ -37,6 +37,8 @@ * NSTEP number of delta cross-section sets used for generalized * perturbation theory (GPT) or kinetics calculations. * NALBP number of physical albedos. +* ILEAK type of diffusion coefficient information. +* NW weighting flag (=0/1: P1-weighted information absent/present). * *----------------------------------------------------------------------- * @@ -46,7 +48,7 @@ *---- TYPE(C_PTR) IPLIST INTEGER INDREC,IPRINT,IDF,NBMIX,NGROUP,NANISO,NIFISS,NEDMAC, - > ITRANC,NDELG,NSTEP,NALBP + > ITRANC,NDELG,NSTEP,NALBP,ILEAK,NW *---- * LOCAL VARIABLES *---- @@ -352,5 +354,13 @@ CALL MACWXS(IPLIST,IPRINT,NGROUP,NBMIX,NIFISS,NANISO, > ITRANC,NEDMAC) ENDIF +*---- +* SET STATE-VECTOR FLAGS +*---- + NW=0 + IF(LNEWXS(9)) NW=1 + ILEAK=0 + IF(LNEWXS(7)) ILEAK=1 + IF(LNEWXS(10).OR.LNEWXS(11).OR.LNEWXS(12)) ILEAK=2 RETURN END |