The data file AMJUEL: Additional Atomic and Molecular ... - eirene

DO 7 I=4,6
INC=INDEX(ZEILE((IND+1):80),CHR(1:1))
IF (INC.GT.0) THEN
IND=IND+INDEX(ZEILE((IND+1):80),CHR(1:1))
READ (ZEILE((IND+3):80),’(E20.12)’) FPARM(IR,I,I0P1)
ENDIF
7 CONTINUE
LGEMAX=.true.
READ (29,’(A80)’,END=990) ZEILE
ENDIF
c
if (lgemin.and.ifexmn(ir,I0P1).eq.0) then
IND=INDEX(ZEILE,’=’)
READ (ZEILE((IND+2):80),’(E12.5)’) rcmn(IR,I0P1)
rcmn(ir,I0P1)=log(rcmn(ir,I0P1))
ifexmn(ir,I0P1)=5
READ (29,’(A80)’,END=990) ZEILE
endif
if (lgemax.and.ifexmx(ir,I0P1).eq.0) then
IND=INDEX(ZEILE,’=’)
READ (ZEILE((IND+2):80),’(E12.5)’) rcmx(IR,I0P1)
rcmx(ir,I0P1)=log(rcmx(ir,I0P1))
ifexmx(ir,I0P1)=5
READ (29,’(A80)’,END=990) ZEILE
endif
C
C ANY OTHER ASYMPTOTES INFO ON FILE? SEARCH FOR Tmin, or Emin
IF ((INDEX(ZEILE,’Tmin’).NE.0.and.I0P1==2).or.
. (INDEX(ZEILE,’Emin’).NE.0.and.I0P1==1)) then
IND=INDEX(ZEILE,’n’)
READ (ZEILE((IND+2):80),’(E9.2)’) rcmn(IR,I0P1)
rcmn(ir,I0P1)=log(rcmn(ir,I0P1))
C extrapolation from subr. CROSS
if (I0P1.eq.1.and.iswr(ir).eq.1) ifexmn(ir,1)=1
if (I0P1.eq.1.and.iswr(ir).eq.3) ifexmn(ir,1)=-1
if (I0P1.eq.1.and.iswr(ir).eq.5) ifexmn(ir,1)=-1
C extrapolation from subr. CDEF
C ?? if (I0PT.eq.2) ifexmn(ir,1)=-1
READ (29,’(A80)’,END=990) ZEILE
ENDIF
12 CONTINUE
C ELSEIF (LCONST) THEN
C NOTHING TO BE DONE
ENDIF
C
C TWO PARAM. FIT, ISW=3,4,6,7,9,10,12
ELSEIF (ISW.EQ.3.OR.ISW.EQ.4.OR.ISW.EQ.6.OR.ISW.EQ.7.OR.
. ISW.EQ.9.OR.ISW.EQ.10.OR.ISW.EQ.12) THEN
DO 11 J=0,2
16 READ (29,’(A80)’,END=990) ZEILE
23