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

C PARAMETER E (E.G.
C PROJECTILE ENERGY OR ELECTRON
C DENSITY) AVAILABLE
C (ON CREAC(..,1,IR))
C =2 FOR
C 9 PROJECTILE ENERGIES AVAILABLE
C (ON CREAC(..,J,IR),J=1,9)
C =3 FOR
C 9 ELECTRON DENSITIES AVAILABLE
C (ON CREAC(..,J,IR),J=1,9)
C L =0 ELSE
C FOURTH DECIMAL M DATA FOR MOMENTUM EXCHANGE
C TO BE WRITTEN
C FIFTH DECIMAL N =1 DELTA E FOR ONE PARAMETER E (E.G.
C PROJECTILE ENERGY OR ELECTRON
C DENSITY) AVAILABLE
C (ON CREAC(..,1,IR))
C =2 DELTA E FOR
C 9 PROJECTILE ENERGIES AVAILABLE
C (ON CREAC(..,J,IR),J=1,9)
C =3 DELTA E FOR
C 9 ELECTRON DENSITIES AVAILABLE
C (ON CREAC(..,J,IR),J=1,9)
C N =0 ELSE
C
USE PRECISION
USE PARMMOD
USE COMPRT
USE COMXS
USE PHOTON
C
C
IMPLICIT NONE
INTEGER, INTENT(IN) :: IR
CHARACTER(8), INTENT(IN) :: FILNAM
CHARACTER(4), INTENT(IN) :: H123
CHARACTER(9), INTENT(IN) :: REAC
CHARACTER(3), INTENT(IN) :: CRC
CHARACTER(11) :: REACSTR
REAL(DP) :: CONST
INTEGER :: I, IND, J, K, IH, I0P1, I0, IC, IREAC, ISW, INDFF,
. IFLG, INC, IANF
CHARACTER(80) :: ZEILE
CHARACTER(6) :: AMJUEL, HYDHEL, H2VIBR, SPECTR
CHARACTER(7) :: METHANE
CHARACTER(2) :: CHR
CHARACTER(3) :: CHRL, CHRR
LOGICAL :: LCONST,LGEMIN,LGEMAX
17