DIMENSION HRMGAG(0:23,1000),IDURMH(0:23,1000),INDMH(0:23,1000)
      COMMON/MHG/HRMGAG,IDURMH,INDMH