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