      integer*4  MCC_RTSH,MCC_LFSH,MCC_RTEL,MCC_LFEL,MCC_RTWR,MCC_LFWR,
     &           MCC_SACR,MCC_RTAS,MCC_LFAS,MCC_RTTU,MCC_LFTU,MCC_RTTF,
     &           MCC_LFTF,MCC_RTTR,MCC_LFTR,MCC_RTSU,MCC_LFSU,MCC_RTSF,
     &           MCC_LFSF,MCC_RTSR,MCC_LFSR,MCC_RTHL,MCC_LFHL,MCC_RTTO,
     &           MCC_LFTO,MCC_RTAK,MCC_LFAK,MCC_RTKN,MCC_LFKN,MCC_RTHP,
     &           MCC_LFHP,MCC_RTMF,MCC_LFMF

      common /cc/  MCC_RTSH,MCC_LFSH,MCC_RTEL,MCC_LFEL,MCC_RTWR,MCC_LFWR,
     &             MCC_SACR,MCC_RTAS,MCC_LFAS,MCC_RTTU,MCC_LFTU,MCC_RTTF,
     &             MCC_LFTF,MCC_RTTR,MCC_LFTR,MCC_RTSU,MCC_LFSU,MCC_RTSF,
     &             MCC_LFSF,MCC_RTSR,MCC_LFSR,MCC_RTHL,MCC_LFHL,MCC_RTTO,
     &             MCC_LFTO,MCC_RTAK,MCC_LFAK,MCC_RTKN,MCC_LFKN,MCC_RTHP,
     &             MCC_LFHP,MCC_RTMF,MCC_LFMF
                                           
      integer*4  MCR_RTKM,MCR_RTKL,MCR_RTTU,MCR_RTTF,MCR_RTTR,MCR_RTSU,
     &           MCR_RTSF,MCR_RTSR,MCR_RTAM,MCR_RTAL,MCR_SACR,MCR_RTHP,
     &           MCR_LFHP,MCR_SACI,MCR_RTHL,MCR_RTTO,MCR_RTFR,MCR_RTFF,
     &           MCR_RTMF

      common /ccr/ MCR_RTKM,MCR_RTKL,MCR_RTTU,MCR_RTTF,MCR_RTTR,MCR_RTSU,
     &             MCR_RTSF,MCR_RTSR,MCR_RTAM,MCR_RTAL,MCR_SACR,MCR_RTHP,
     &             MCR_LFHP,MCR_SACI,MCR_RTHL,MCR_RTTO,MCR_RTFR,MCR_RTFF,
     &             MCR_RTMF

      integer*4  MCL_LFKM,MCL_LFKL,MCL_LFTU,MCL_LFTF,MCL_LFTR,MCL_LFSU,
     &           MCL_LFSF,MCL_LFSR,MCL_LFAM,MCL_LFAL,MCL_SACR,MCL_RTHP,
     &           MCL_LFHP,MCL_SACI,MCL_LFHL,MCL_LFTO,MCL_LFFR,MCL_LFFF,
     &           MCL_LFMF

      common /ccl/ MCL_LFKM,MCL_LFKL,MCL_LFTU,MCL_LFTF,MCL_LFTR,MCL_LFSU,
     &             MCL_LFSF,MCL_LFSR,MCL_LFAM,MCL_LFAL,MCL_SACR,MCL_RTHP,
     &             MCL_LFHP,MCL_SACI,MCL_LFHL,MCL_LFTO,MCL_LFFR,MCL_LFFF,
     &             MCL_LFMF
                                           
