PARAMETER (MLIN0   =1200000, 
     *           MGRIEM  =     10,
     *           MNLT    =   2000,
     *           MSPHE2  =     20,
     *           MLIN    = 190000,
     *           MPRF    =  MLIN0)
C
      PARAMETER (MLINM0  =9000000,
     *           MLINM   =1000000,
     *           MMLIST  =      3)
C
       REAL*4       EXCL0(MLIN0),
     *              EXCU0(MLIN0),
     *              GF0(MLIN0),
     *              EXTIN(MLIN0),
     *              BNUL(MLIN0),
     *              GAMR0(MPRF),
     *              GS0(MPRF),
     *              GW0(MPRF),
     *              WGR0(4,MGRIEM),
     *              EXCLM(MLINM0,MMLIST),
     *              GFM(MLINM0,MMLIST),
     *              EXTINM(MLINM0,MMLIST),
     *              GRM(MLINM0,MMLIST),
     *              GSM(MLINM0,MMLIST),
     *              GWM(MLINM0,MMLIST),
     *              GVDWH2(MLINM0,MMLIST),
     *              GEXPH2(MLINM0,MMLIST),
     *              GVDWHE(MLINM0,MMLIST),
     *              GEXPHE(MLINM0,MMLIST)
C     
      COMMON/LINTOT/FREQ0(MLIN0),
     *              EXCL0,
     *              EXCU0,
     *              GF0,
     *              EXTIN,
     *              BNUL,
     *              INDAT(MLIN0),
     *              INDNLT(MLIN0),
     *              ILOWN(MLIN0),
     *              IUPN(MLIN0),
     *              IJCONT(MLIN0),
     *              INDLIN(MLIN),
     *              INDLIP(MLIN),
     *              NLIN0,NLIN,IRLIST,
     *              NNLT,NGRIEM
C
      COMMON/MOLTOT/FREQM(MLINM0,MMLIST),
     *              EXCLM,
     *              GFM,
     *              EXTINM,
     *              GRM,GSM,GWM,
     *              GVDWH2,GEXPH2,GVDWHE,GEXPHE,
     *              INDATM(MLINM0,MMLIST),
     *              INMLIN(MLINM,MMLIST),
     *              INMLIP(MLINM,MMLIST),
     *              NLINM0(MMLIST),
     *              NLINML(MMLIST),
     *              NLINMT(MMLIST),
     *              IUNITM(MMLIST),
     *              INACTM(MMLIST),
     *              IVDWLI(MMLIST),
     *              NMLIST
      CHARACTER*40  AMLIST(0:MMLIST)
      COMMON/LISPAR/AMLIST,
     *              IBIN(0:MMLIST)
C
      COMMON/LINPRF/GAMR0,
     *              GS0,
     *              GW0,
     *              WGR0,
     *              IPRF0(MPRF),
     *              ISPRF(MPRF),
     *              IGRIEM(MPRF),
     *              ISP0(MSPHE2),NSP
C
      COMMON/LINNLT/ABCENT(MNLT,MDEPTH),
     *              SLIN(MNLT,MDEPTH)
C
      COMMON/LINDEP/PLAN(MDEPTH),
     *              STIM(MDEPTH),
     *              EXHK(MDEPTH)
C
      COMMON/LINCTR/DFRCON,IJCNTR(MLIN),IJCMTR(MLINM,MMLIST)
      COMMON/MLINRE/FRLASM(MMLIST),ALASTM(MMLIST),TMLIM(MMLIST),
     *              NXTSEM(MMLIST),IPRSEM(MMLIST),IREADM(MMLIST)