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/BREF.f | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Dragon/src/BREF.f') diff --git a/Dragon/src/BREF.f b/Dragon/src/BREF.f index 9e7de4a..88ec646 100644 --- a/Dragon/src/BREF.f +++ b/Dragon/src/BREF.f @@ -238,7 +238,7 @@ DEALLOCATE(IMIX1,IGAP,ADFREF,ITRIAL,IPEDI2) IF(IPRINT.GT.0) THEN CALL LCMGET(IPMAC1,'STATE-VECTOR',ISTATE) - WRITE(6,110) IPRINT,(ISTATE(I),I=1,9),ISTATE(12),ISTATE(14) + WRITE(6,110) IPRINT,(ISTATE(I),I=1,10),ISTATE(12),ISTATE(14) ENDIF RETURN * @@ -255,6 +255,7 @@ 1 7H NLG ,I6,39H (NUMBER OF DELAYED PRECURSOR GROUPS)/ 2 7H NALB ,I6,31H (NUMBER OF PHYSICAL ALBEDOS)/ 3 7H ILEAK ,I6,40H (1=DIFF AVAILABLE; 2=DIFFX AVAILABLE)/ - 4 7H IDF ,I6,44H (=0/2/3/4 ADF INFORMATION ABSENT/PRESENT)/ - 5 7H ISPH ,I6,36H (=0/1 SPH FACTORS ABSENT/PRESENT)) + 4 7H NW ,I6,43H (=0/1: NTOT1 INFORMATION ABSENT/PRESENT)/ + 5 7H IDF ,I6,44H (=0/2/3/4 ADF INFORMATION ABSENT/PRESENT)/ + 6 7H ISPH ,I6,36H (=0/1 SPH FACTORS ABSENT/PRESENT)) END -- cgit v1.2.3