224 lines
6.6 KiB
Fortran
224 lines
6.6 KiB
Fortran
C
|
|
C Parameters that specify dimensions of arrays
|
|
C
|
|
IMPLICIT REAL*8 (A-H, O-Z),LOGICAL*1 (L)
|
|
character*4 typat
|
|
PARAMETER (MATEX = 30,
|
|
* MIOEX = 90,
|
|
* MLEVEL= 1650,
|
|
* MDEPTH= 100,
|
|
* MDEPF = 500,
|
|
* MFREQ = 2000,
|
|
c * MFREQ = 120,
|
|
* MFREQC= 2000,
|
|
* MFRQ = 2000,
|
|
* MOPAC = MFRQ,
|
|
* MMU = 20,
|
|
* MCROSS= MLEVEL,
|
|
* MFIT = 1650,
|
|
* MFCRA = 1200,
|
|
* MTRAD = 3,
|
|
* MATOM = 99,
|
|
* MATOMBIG = 99,
|
|
* MION = 90,
|
|
* MION0 = 9,
|
|
* MMOLEC=500,
|
|
* MPHOT = 10,
|
|
* MZZ = 2,
|
|
* MMER = 2,
|
|
* NLMX = 80,
|
|
* MI1 = MION0-1,
|
|
* MLINH = 78,
|
|
* MHT = 7,
|
|
* MHE = 20,
|
|
* MHWL = 55)
|
|
PARAMETER (MFGRID = 100000,
|
|
* MTTAB = 21,
|
|
* MRTAB = 20,
|
|
* MSFTAB = 6000000)
|
|
parameter (mfhtab=1000,
|
|
* mtabth=10,
|
|
* mtabeh=10)
|
|
c
|
|
C Basic physical constants
|
|
C
|
|
PARAMETER (H = 6.6256D-27,
|
|
* CL = 2.997925D10,
|
|
* BOLK = 1.38054D-16,
|
|
* HK = 4.79928144D-11,
|
|
* EH = 2.17853041D-11,
|
|
* BN = 1.4743D-2,
|
|
* SIGE = 6.6516D-25,
|
|
* PI4H = 1.8966D27,
|
|
* HMASS = 1.67333D-24)
|
|
C
|
|
C Unit number
|
|
C
|
|
PARAMETER (IBUFF=95)
|
|
C
|
|
C Variables to hold quantum numbers limits
|
|
C (see LEVLIMITS below)
|
|
C
|
|
INTEGER*4 SQUANT1(MLEVEL),SQUANT2(MLEVEL),
|
|
* LQUANT1(MLEVEL),LQUANT2(MLEVEL),
|
|
* PQUANT1(MLEVEL),PQUANT2(MLEVEL)
|
|
C
|
|
C Basic parameters
|
|
C
|
|
COMMON/BASNUM/NATOM,
|
|
* NION,
|
|
* NLEVEL,
|
|
* ND,NDSTEP,
|
|
* NFREQ,NFROBS,NFREQC,NFREQS,
|
|
* NMU
|
|
COMMON/LTESET/LTE,LTEGR
|
|
COMMON/INPPAR/TEFF,
|
|
* GRAV,
|
|
* YTOT(MDEPTH),
|
|
* WMM(MDEPTH),
|
|
* WMY(MDEPTH),
|
|
* vaclim,
|
|
* ATTOT(MATOM,MDEPTH)
|
|
COMMON/BASICM/IMODE,
|
|
* IMODE0,
|
|
* IFREQ,
|
|
* INLTE,
|
|
* IDSTD,
|
|
* IFWIN,
|
|
* IFEOS,
|
|
* IBFAC
|
|
COMMON/INTKEY/INMOD,INTRPL,ICHANG,ICHEMC,IATREF,ICONTL
|
|
COMMON/LBLANK/IBLANK,NBLANK
|
|
COMMON/NXTINI/ALM00,ALST00,NXTSET,INLIST,ALAMBE,DLAMLO
|
|
COMMON/IPRNTR/IPRIN
|
|
C
|
|
C Parameters for explicit atoms
|
|
C
|
|
COMMON/ATOPAR/AMASS(MATEX),
|
|
* ABUND(MATEX,MDEPTH),
|
|
* RELAB(MATEX,MDEPTH),
|
|
* NUMAT(MATEX),
|
|
* N0A(MATEX),
|
|
* NKA(MATEX),
|
|
* SABND(MATEX)
|
|
C
|
|
C Parameters for explicit ions
|
|
C
|
|
COMMON/IONPAR/FF(MIOEX),
|
|
* NFIRST(MIOEX),
|
|
* NLAST(MIOEX),
|
|
* NNEXT(MIOEX),
|
|
* IUPSUM(MIOEX),
|
|
* IZ(MIOEX),
|
|
* IFREE(MIOEX),
|
|
* INBFCS(MIOEX),
|
|
* ILIMITS(MIOEX)
|
|
C
|
|
C Parameters for explicit levels
|
|
C
|
|
COMMON/LEVPAR/ENION(MLEVEL),
|
|
* G(MLEVEL),
|
|
* NQUANT(MLEVEL),
|
|
* IATM(MLEVEL),
|
|
* IEL(MLEVEL),
|
|
* ILK(MLEVEL),
|
|
* ifwop(mlevel),
|
|
* isemex(matom)
|
|
C
|
|
C Limits for explicit levels
|
|
C
|
|
COMMON/LEVLIMITS/ENION1(MLEVEL),
|
|
* ENION2(MLEVEL),
|
|
* SQUANT1,
|
|
* SQUANT2,
|
|
* LQUANT1,
|
|
* LQUANT2,
|
|
* PQUANT1,
|
|
* PQUANT2
|
|
C
|
|
C Parameters for all considered transitions
|
|
C
|
|
COMMON/TRAPAR/IBF(MLEVEL),
|
|
* S0BF(MLEVEL),
|
|
* ALFBF(MLEVEL),
|
|
* BETBF(MLEVEL),
|
|
* GAMBF(MLEVEL)
|
|
C
|
|
COMMON/MRGPAR/SGM0(MMER),
|
|
* FRCH(MMER),
|
|
* SGEXT1(MMER,MDEPTH),
|
|
* GMER(MMER,MDEPTH),
|
|
* SGMSUM(NLMX,MMER,MDEPTH),
|
|
* SGMG(MMER,MDEPTH),
|
|
* IMRG(MLEVEL),
|
|
* IIMER(MMER)
|
|
C
|
|
COMMON/DWNPAR/ELEC23(MDEPTH),
|
|
* Z3(MZZ),
|
|
* DWC1(MZZ,MDEPTH),
|
|
* DWC2(MDEPTH)
|
|
C
|
|
C additional opacities
|
|
c
|
|
COMMON/OPCPAR/IOPADD,
|
|
* IOPHMI,
|
|
* IOPH2P,
|
|
* IOPHEM,
|
|
* IOPCH,
|
|
* IOPOH,
|
|
* IOPH2M,
|
|
* IOH2H2,IOH2HE,IOH2H1,IOHHE,
|
|
* IOPHLI,
|
|
* IRSCT,
|
|
* IRSCHE,
|
|
* IRSCH2
|
|
C
|
|
C Auxiliary parameters
|
|
C
|
|
COMMON/AUXIND/IATH,IELH,IELHM,N0H,N1H,NKH,N0HN,N0M,
|
|
* IATHE,IELHE1,IELHE2
|
|
COMMON/MOLFLG/TMOLIM,MOLIND(11000),NMOLEC,IFMOL,
|
|
* MOLTAB,IRWTAB,IIRWIN,IPFEXO
|
|
COMMON/QFLAGS/ERANGE,ISPICK,ILPICK,IPPICK
|
|
|
|
C
|
|
C Parameters for atoms considered in line blanketing opacity
|
|
C
|
|
LOGICAL LGR(MATOM),LRM(MATOM)
|
|
COMMON/PFSTDS/PFSTD(MION,MATOM),MODPF(MATOM)
|
|
COMMON/ADDPOP/RR(MATOM,MION)
|
|
COMMON/ATOBLN/ENEV(MATOM,MI1),AMAS(MATOM),ABND(MATOM),
|
|
* ABNDD(MATOM,MDEPTH),ABNREF(MDEPTH),TYPAT(MATOM),
|
|
* IATEX(MATOM),INPOT(MATOM,MION0)
|
|
COMMON/ATOINI/NATOMS,IONIZ(MATOM),LGR,LRM
|
|
c
|
|
c parameters for hydrogen Stark broadening tables
|
|
c
|
|
COMMON/HYDPRF/PRFHYD(MLINH,MDEPTH,MHWL),
|
|
* WLHYD(MLINH,MHWL),
|
|
* NWLHYD(MLINH),
|
|
* WL(MHWL,MLINH),
|
|
* XT(MHT,MLINH),
|
|
* XNE(MHE,MLINH),
|
|
* PRF(MHWL,MHT,MHE,MLINH),
|
|
* WLINE(4,22),
|
|
* NWLH(MLINH),
|
|
* NTH(MLINH),
|
|
* NEH(MLINH),
|
|
* ILIN0(4,22),
|
|
* ILEMKE,
|
|
* NLIHYD
|
|
COMMON/AUXHYD/XK,FXK,BETAD,DBETA,BERGFC,CUTLYM,CUTBAL
|
|
COMMON/HHEPRF/IHYDPR,IHE1PR,IHE2PR
|
|
COMMON/HYLPAR/IHYL,ILOWH,M10,M20
|
|
COMMON/HYLPAW/IHYLW(MFREQ),ILOWHW(MFREQ),
|
|
* M10W(MFREQ),M20W(MFREQ)
|
|
COMMON/HE2PAR/IFHE2,IHE2L,ILWHE2,MHE10,MHE20
|
|
COMMON/HE2PAW/IHE2LW(MFREQ),ILWHEW(MFREQ),
|
|
* MHE10W(MFREQ),MHE20W(MFREQ)
|
|
C
|
|
C parameters for the macroscopic velocity field and angles
|
|
C
|
|
COMMON/VELPAR/ANGL(MMU),WANGL(MMU),VELC(MDEPTH),NMU0,IFLUX
|
|
|