PARAMETER (MFODF =     180,
     *           MHOD  =       3,
     *           MFRO  =  MFREQL,
     *           MDODF =       3,
c    *           MKULEV=       2,
c    *           MLINE =       2,
c    *           MCFE  =       2  )
     *           MKULEV=    7000,
     *           MLINE = 1140000,
     *           MCFE  = 7824000  )
C
      REAL*4 SIGFE
C
      COMMON/ODFION/INODF1(MION),INODF2(MION),INBFCS(MION),
     *              IKOBS(MION)
C
      COMMON/ODFCTR/FRODF(MLEVEL),NFRODF(MHOD),INDODF(MLEVEL),
     *              JNDODF(MTRANS)
      COMMON/ODFFRQ/FROS(MFRO,MHOD),WNUS(MFRO,MHOD),XDO(3,MHOD),
     *              KDO(4,MHOD)
      COMMON/ODFMOD/I1ODF(MLEVEL),I2ODF(MLEVEL),NQLODF(MLEVEL)
      COMMON/ODFSTK/XKIJ(MHOD,NLMX),WL0(MHOD,NLMX),FIJ(MHOD,NLMX)
      COMMON/SPLCOM/SIGFE(MDODF,MCFE),
     &       FRS1,FRS2,DXNU,XJID(MDEPTH),JIDI(MDEPTH),JIDR(MDODF),
     &       JIDS,JIDN,NFRS1,NFTT
      COMMON/OPALIM/M1FILE(NLMX,MHOD),M2FILE(NLMX,MHOD),IMERG
      COMMON/OPLIMT/ALLIM1,ABLIM1,ABLIM2,ABLIM3
      COMMON/LEVCOM/EMKU(MLEVEL,2),YMKU(MLEVEL,2),
     &       XEV(MLEVEL,MION),XOD(MLEVEL,MION),EU(2*MLEVEL),
     &       JEN(2*MLEVEL),
     &       EEV(MKULEV),AEV(MKULEV),SEV(MKULEV),WEV(MKULEV),
     &       EOD(MKULEV),AOD(MKULEV),SOD(MKULEV),WOD(MKULEV),
     &       KSEV(MKULEV),KSOD(MKULEV),NEVKU(MION),NODKU(MION),
     &       NLEVKU,NLINKU,KEVE,KODD