diff options
Diffstat (limited to 'Dragon/src/BRERT.f')
| -rw-r--r-- | Dragon/src/BRERT.f | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Dragon/src/BRERT.f b/Dragon/src/BRERT.f index 10d4155..19afde9 100644 --- a/Dragon/src/BRERT.f +++ b/Dragon/src/BRERT.f @@ -334,6 +334,7 @@ IF(J_FUEL.GT.0) ISTATE(4)=1 IF(ICODE(2).NE.0) ISTATE(8)=1 ! physical albedo information ISTATE(9)=1 ! diffusion coefficient information + IF(IDIFF.EQ.1) ISTATE(10)=NL-1 ! NTOT1 is present IF(ISPH.EQ.0) ISTATE(12)=3 ! discontinuity factor information IF(ISPH.EQ.1) ISTATE(14)=1 ! SPH factor information CALL LCMPUT(IPMAC1,'STATE-VECTOR',NSTATE,1,ISTATE) |