diff options
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 |