01.05.2013 Views

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

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

INDFF=INDEX(ZEILE,’fit-flag’)<br />

IF (INDEX(ZEILE,’Index’)+INDFF.EQ.0) GOTO 16<br />

IF (INDFF > 0) THEN<br />

READ (ZEILE((INDFF+8):80),*) IFTFLG(IR,IFLG)<br />

GOTO 16<br />

ENDIF<br />

READ (29,’(1X)’)<br />

IF (MOD(IFTFLG(IR,IFLG),100) == 10) THEN<br />

CREAC(:,:,IR)=0._DP<br />

READ (29,*) IH,CREAC(1,1,IR)<br />

EXIT<br />

ELSE<br />

DO 17 I=1,9<br />

READ (29,*) IH,(CREAC(I,K,IR),K=J*3+1,J*3+3)<br />

17 CONTINUE<br />

END IF<br />

11 CONTINUE<br />

C NO ASYMPTOTES AVAILABLE YET<br />

C<br />

ENDIF<br />

C<br />

CLOSE (UNIT=29)<br />

C<br />

RETURN<br />

C<br />

990 WRITE (6,*) ’ NO DATA FOUND FOR REACTION ’,H123,’ ’,REAC,<br />

. ’ IN DATA SET ’,FILNAM<br />

WRITE (6,*) ’ IR,MODCLF(IR) ’,IR,MODCLF(IR)<br />

CLOSE (UNIT=29)<br />

CALL EXIT<br />

991 WRITE (6,*) ’ INVALID CONSTANT IN SLREAC. CONST= ’,CONST<br />

WRITE (6,*) ’ CHECK "REACTION CARDS" FOR REACTION NO. ’,IR<br />

CLOSE (UNIT=29)<br />

CALL EXIT<br />

6664 FORMAT (6E12.4)<br />

END<br />

24

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!