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 /Donjon/src/DLEAK.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 'Donjon/src/DLEAK.f')
| -rw-r--r-- | Donjon/src/DLEAK.f | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Donjon/src/DLEAK.f b/Donjon/src/DLEAK.f index f3e629b..01ce26d 100644 --- a/Donjon/src/DLEAK.f +++ b/Donjon/src/DLEAK.f @@ -252,6 +252,7 @@ ISTATE(2)=NMIX
ISTATE(3)=1
ISTATE(9)=ILEAK
+ IF(ITYPE.EQ.2) ISTATE(10)=1 ! set NTOT1 flag
ISTATE(11)=NPERT
CALL LCMPUT(IPNEW,'STATE-VECTOR',NSTATE,1,ISTATE)
IF(IMPX.GT.1) CALL LCMLIB(IPNEW)
|