;+
; NAME		fetch_poly
;
; PURPOSE	Read polygon vertex file.
;
; HISTORY	Andrew L. Stanger   HAO/NCAR   28 January 1999
;	
;-

PRO fetch_poly, namepv, xv, yv, nver

   i = 0
   xver = intarr (1000)
   yver = intarr (1000)
   GET_LUN, lun_pv

   OPENR, lun_pv, namepv
   WHILE (NOT EOF (lun_pv)) DO	$
   BEGIN
      READF, lun_pv, xvertex, yvertex
      xver [i] = xvertex
      yver [i] = yvertex
      i = i + 1
   END

   nver = i
   xv = intarr (nver)
   yv = intarr (nver)
   xv [0:nver-1] = xver [0:nver-1]
   yv [0:nver-1] = yver [0:nver-1]

   CLOSE, lun_pv
   FREE_LUN, lun_pv

END