57 lines
2.7 KiB
Fortran
57 lines
2.7 KiB
Fortran
C
|
|
PARAMETER (MPAG=MLEVEL/6+1)
|
|
C
|
|
CHARACTER*40 FIDATA(MION),FIODF1(MION),FIODF2(MION),FIBFCS(MION)
|
|
CHARACTER*10 TYPLEV(MLEVEL)
|
|
CHARACTER*4 TYPION(MION)
|
|
C
|
|
COMMON/ATOPAR/AMASS(MATOM),ABUND(MATOM,MDEPTH),NUMAT(MATOM),
|
|
* N0A(MATOM),NKA(MATOM),nref(matom),iatex(matom),
|
|
* nrefs(matom,mdepth),iadop(matom),
|
|
* iifix(matom),iatref,modref
|
|
common/atomas/amas(100)
|
|
COMMON/IONPAR/FF(MION),CHARG2(MION),
|
|
* NFIRST(MION),NLAST(MION),NNEXT(MION),
|
|
* IZ(MION),IUPSUM(MION),ICUP(MION),ilte(mion),
|
|
* iltion(mion)
|
|
COMMON/LEVPAR/ENION(MLEVEL),G(MLEVEL),NQUANT(MLEVEL),
|
|
* IATM(MLEVEL),IEL(MLEVEL),ILK(MLEVEL),ilin(mlevel),
|
|
* iltlev(mlevel),indlev(mlevel),
|
|
* imodl(mlevel),iiexp(mlevel),iifor(mlevel),
|
|
* ipzert(mlevel),
|
|
* igzert(mlevel),indlgz(mlevel),iinonz(mlevel),
|
|
* NLVEXP,NLVFOR,NLVEXZ,LBPFX
|
|
COMMON/TRAPAR/FR0(MTRANS),OSC0(MTRANS),CPAR(MTRANS),
|
|
* FRQMX(MTRANS),FR0PC(MTRANS),OMECOL(MLEVEL,MLEVEL),
|
|
* XGRAD,STRL1,STRL2,STRLX,
|
|
* ILOW(MTRANS),IUP(MTRANS),INDEXP(MTRANS),
|
|
* KFR0(MTRANS),KFR1(MTRANS),ILUCTR(MTRANS),
|
|
* IFC0(MTRANS),IFC1(MTRANS),
|
|
* IFR0(MTRANS),IFR1(MTRANS),ITRA(MLEVEL,MLEVEL),
|
|
* IPROF(MTRANS),ICOL(MTRANS),INTMOD(MTRANS),
|
|
* ITRCON(MTRANS),IDIEL(MTRANS),
|
|
* IJTF(MTRANS),LCOMP(MTRANS),LINE(MTRANS)
|
|
COMMON/PHOSET/S0CS(MLEVEL),ALFCS(MLEVEL),BETCS(MLEVEL),
|
|
* GAMCS(MLEVEL),IBF(MLEVEL)
|
|
COMMON/TOPCS/CTOP(MFIT,MCROSS), !sigma=alog10(sigma/10^-18) of fit point
|
|
* XTOP(MFIT,MCROSS) ! x = alog10(nu/nu0) of fit point
|
|
COMMON/TABCOL/CTEMP(MXTCOL,MCFIT,MCORAT), ! temperature vs.
|
|
* CRATE(MXTCOL,MCFIT,MCORAT) ! collisional rates
|
|
COMMON/VOIPAR/GAMAR(MVOIGT),STARK1(MVOIGT),STARK2(MVOIGT),
|
|
* STARK3(MVOIGT),VDWH(MVOIGT)
|
|
COMMON/HECRAT/COLHE1(19,19)
|
|
COMMON/TRACOR/LEXP(MTRANS),LALI(MTRANS)
|
|
COMMON/TRAALI/NFFIX,IFSUB,IFLEV
|
|
COMMON/AUXIND/IATH,IATHE,IELH,IELHM,IELHE1,IELHE2
|
|
COMMON/IONFIL/FIDATA,FIODF1,FIODF2,FIBFCS
|
|
COMMON/IONDAT/IATI(MION),IZI(MION),NLEVS(MION),NLLIM(MION)
|
|
COMMON/OSCHYD/OSH(20,20)
|
|
COMMON/PRINTP/NPGPOP,IIPR(6,MPAG),TYPLEV,TYPION
|
|
common/tabmax/frtabm
|
|
c
|
|
PARAMETER (MTRPRD=5)
|
|
COMMON/PRDPAR/DOPTR(MTRPRD,MDEPTH),COHER(MTRPRD,MDEPTH),
|
|
* PJBAR(MTRPRD,MDEPTH),RJBAR(MTRPRD,MDEPTH),
|
|
* XPDIV,
|
|
* IPRD(MTRANS),ITRTOT(MTRPRD),NTRPRD,IFPRD
|