diff options
Diffstat (limited to 'Donjon/src/PCRMAC.f')
| -rw-r--r-- | Donjon/src/PCRMAC.f | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Donjon/src/PCRMAC.f b/Donjon/src/PCRMAC.f index 06cf5af..d4337f9 100644 --- a/Donjon/src/PCRMAC.f +++ b/Donjon/src/PCRMAC.f @@ -422,6 +422,7 @@ ISTATE(4)=MAX(ISTATE(4),NF) IF(LMAKE1(4)) ISTATE(9)=1 IF(LMAKE1(5)) ISTATE(9)=2 + IF(LMAKE1(9)) ISTATE(10)=1 CALL LCMPUT(IPMAC,'STATE-VECTOR',NSTATE,1,ISTATE) *---- * INCLUDE LEAKAGE IN THE MACROLIB (USED ONLY FOR NON-REGRESSION TESTS) |