      integer*4  MMA_RTSH,MMA_LFSH,MMA_RTEL,MMA_LFEL,MMA_RTWR,MMA_LFWR,
     &           MMA_SACR,MMA_RTAS,MMA_LFAS,MMA_RTTU,MMA_LFTU,MMA_RTTF,
     &           MMA_LFTF,MMA_RTTR,MMA_LFTR,MMA_RTSU,MMA_LFSU,MMA_RTSF,
     &           MMA_LFSF,MMA_RTSR,MMA_LFSR,MMA_RTHL,MMA_LFHL,MMA_RTTO,
     &           MMA_LFTO,MMA_RTAK,MMA_LFAK,MMA_RTKN,MMA_LFKN,MMA_RTHP,
     &           MMA_LFHP,MMA_RTMF,MMA_LFMF

      common /Mayo/  MMA_RTSH,MMA_LFSH,MMA_RTEL,MMA_LFEL,MMA_RTWR,MMA_LFWR,
     &               MMA_SACR,MMA_RTAS,MMA_LFAS,MMA_RTTU,MMA_LFTU,MMA_RTTF,
     &               MMA_LFTF,MMA_RTTR,MMA_LFTR,MMA_RTSU,MMA_LFSU,MMA_RTSF,
     &               MMA_LFSF,MMA_RTSR,MMA_LFSR,MMA_RTHL,MMA_LFHL,MMA_RTTO,
     &               MMA_LFTO,MMA_RTAK,MMA_LFAK,MMA_RTKN,MMA_LFKN,MMA_RTHP,
     &               MMA_LFHP,MMA_RTMF,MMA_LFMF
                                           
      integer*4  MIR_RTKU,MIR_RTKF,MIR_RTKR,MIR_RTTU,MIR_RTTF,MIR_RTTR,
     &           MIR_RTSU,MIR_RTSF,MIR_RTSR,MIR_RTAU,MIR_RTAF,MIR_RTAR,
     &           MIR_SACR,MIR_RTHP,MIR_LFHP,MIR_SACI,MIR_RTHL,MIR_RTTO,
     &           MIR_RTMF

      common /MayoInitRt/ 
     &           MIR_RTKU,MIR_RTKF,MIR_RTKR,MIR_RTTU,MIR_RTTF,MIR_RTTR,
     &           MIR_RTSU,MIR_RTSF,MIR_RTSR,MIR_RTAU,MIR_RTAF,MIR_RTAR,
     &           MIR_SACR,MIR_RTHP,MIR_LFHP,MIR_SACI,MIR_RTHL,MIR_RTTO,
     &           MIR_RTMF

      integer*4  MIL_LFKU,MIL_LFKF,MIL_LFKR,MIL_LFTU,MIL_LFTF,MIL_LFTR,
     &           MIL_LFSU,MIL_LFSF,MIL_LFSR,MIL_LFAU,MIL_LFAF,MIL_LFAR,
     &           MIL_SACR,MIL_RTHP,MIL_LFHP,MIL_SACI,MIL_LFHL,MIL_LFTO,
     &           MIL_LFMF

      common /MayoInitLf/ 
     &           MIL_LFKU,MIL_LFKF,MIL_LFKR,MIL_LFTU,MIL_LFTF,MIL_LFTR,
     &           MIL_LFSU,MIL_LFSF,MIL_LFSR,MIL_LFAU,MIL_LFAF,MIL_LFAR,
     &           MIL_SACR,MIL_RTHP,MIL_LFHP,MIL_SACI,MIL_LFHL,MIL_LFTO,
     &           MIL_LFMF
                                           
