diff options
| author | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
|---|---|---|
| committer | Alain Hebert <alainhebert@Alains-MacBook-Pro.local> | 2025-12-21 19:25:34 -0500 |
| commit | 33730217cfd6de8a38c93c2400265e4025ab404a (patch) | |
| tree | ed40c4131e0c1b4493183936f34d2233a7ec4cfe /Dragon/src/BREF.f | |
| parent | 5c0d4cce527b0d42dc794a475550783ea846b30a (diff) | |
#20: Correct more issues in non-regression tests
Diffstat (limited to 'Dragon/src/BREF.f')
| -rw-r--r-- | Dragon/src/BREF.f | 7 |
1 files changed, 4 insertions, 3 deletions
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 |