;+
; NAME: POCALOC
;	
; PURPOSE:
;	To return the position, in latitude and longditude, of the camera at
;       a given date.
;
; CATEGORY:
;	
; CALLING SEQUENCE:
;       LOC = POCALOC(YEAR,MONTH,DAY)
;
; INPUTS:
;       YEAR: an integer giving the year.
;       MONTH: an integer giving the month.
;       DAY: an integer giving the day.
;
; KEYWORD PARAMETERS:
;       None.
;
; OUTPUTS:
;       LOC:	A floating point vector. LOC(0) contains the latitude
;               of the camera (in degrees), LOC(1) contains the
;		longitude, and LOC(2) contains its altitude (km).
;
; COMMON BLOCKS:
;       None.
;
; SIDE EFFECTS:
;       None.
;
; RESTRICTIONS:
;       POCALOC use the function POCASITE, which can accept an array of 
;       years and will pass back an array of site numbers. However, this
;       procedure will only work if POCASITE returns a scalar, hence only
;       one year can be passed to POCALOC, at a time.
;
; PROCEDURE:
;       The variable YEAR, MONTH, and DAY, are passed to the function POCASITE,
;       which will return a site number. The sitenumber is then used to identify
;       which set of latitude and longitude parameters would be appropriate. 
;       These numbers are then returned to the caller in an 1-D, three element, 
;       floating point array.
;
; MODIFICATION HISTORY:
;       Written June 1994, by T A Oliynyk.
;	Modified 951118 by D P Steele: added height as LOC(2).
;
;-

FUNCTION pocaloc,year,month,day

site=pocasite(year,month,day)

CASE site OF

	1: BEGIN lat=51.08   
	         lon=245.8681 
		 ht=1.2
           END
	2: BEGIN lat=58.23   
	         lon=256.333  
		 ht=0.44
	   END
	3: BEGIN lat=80.0533 
	         lon=273.5839 
		 ht=0.605
	   END

ENDCASE

loc=[lat,lon,ht]
RETURN,loc

END