real*8          hr
      integer               mr
      common          hr(1),mr(1000)