diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
| commit | 33730217cfd6de8a38c93c2400265e4025ab404a (patch) | |
| tree | ed40c4131e0c1b4493183936f34d2233a7ec4cfe /Donjon/src/DLEAK.f | |
| parent | 5c0d4cce527b0d42dc794a475550783ea846b30a (diff) | |
#20: Correct more issues in non-regression tests
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)
|