The data file AMJUEL: Additional Atomic and Molecular ... - eirene
The data file AMJUEL: Additional Atomic and Molecular ... - eirene
The data file AMJUEL: Additional Atomic and Molecular ... - eirene
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ELSEIF (ISW.EQ.10) THEN<br />
MODCLF(IR)=MODCLF(IR)+30000<br />
I0=1<br />
IFLG=4<br />
IFTFLG(IR,IFLG)=0<br />
C H.11<br />
ELSEIF (ISW.EQ.11) THEN<br />
CHR=’k0’<br />
CHRL=’kl0’<br />
CHRR=’kr0’<br />
I0=1<br />
IFLG=5<br />
IFTFLG(IR,IFLG)=0<br />
C H.12<br />
ELSEIF (ISW.EQ.12) THEN<br />
I0=1<br />
IFLG=5<br />
IFTFLG(IR,IFLG)=0<br />
ENDIF<br />
C<br />
IF (LCONST) THEN<br />
IND=INDEX(REACSTR,’FT’)<br />
IF (IND /= 0) THEN<br />
READ (REACSTR(IND+2:),*) IFTFLG(IR,IFLG)<br />
END IF<br />
IF (MOD(IFTFLG(IR,IFLG),100) == 10) THEN<br />
C<br />
C READ ONLY ONE FIT COEFFICIENT FROM INPUT FILE<br />
READ (IUNIN,6664) CREAC(1,I0,IR)<br />
ELSE<br />
C<br />
C READ 9 FIT COEFFICIENTS FROM INPUT FILE<br />
READ (IUNIN,6664) (CREAC(IC,I0,IR),IC=1,9)<br />
END IF<br />
RETURN<br />
C<br />
C READ FROM DATA FILE<br />
C<br />
ELSEIF (.NOT.LCONST) THEN<br />
100 READ (29,’(A80)’,END=990) ZEILE<br />
c<br />
c loop to find begin of <strong>data</strong>, see subr. slreac.f in "<strong>file</strong>-h<strong>and</strong>ling"<br />
c<br />
GOTO 100<br />
1 READ (29,’(A80)’,END=990) ZEILE<br />
IF (INDEX(ZEILE,H123).EQ.0) GOTO 1<br />
C<br />
2 READ (29,’(A80)’,END=990) ZEILE<br />
21