diff options
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)
|