 
      integer*4 MRK_RWR,MRK_RWU,MRK_REL,MRK_RSH,MRK_RHP,
     &          MRK_LSH,MRK_LHP,MRK_AHD,MRK_PHD

      logical*4 UseHead

      common /UpperExtrem/ MRK_RWR,MRK_RWU,MRK_REL,MRK_RSH,MRK_RHP,
     &                     MRK_LSH,MRK_LHP,MRK_AHD,MRK_PHD,UseHead
