From 33730217cfd6de8a38c93c2400265e4025ab404a Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sun, 21 Dec 2025 19:25:34 -0500 Subject: #20: Correct more issues in non-regression tests --- Dragon/src/BRERT.f | 1 + 1 file changed, 1 insertion(+) (limited to 'Dragon/src/BRERT.f') 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) -- cgit v1.2.3