CHARACTER*8 GAGEID(1000)
      DIMENSION IHLOC(1000),JHLOC(1000),IHNAT(1000),JHNAT(1000)
      DIMENSION XLAT(1000),XLON(1000)
      COMMON/GAGLOC/GAGEID,XLAT,XLON,IHNAT,JHNAT,IHLOC,JHLOC