FUNCTION PoCasite,year,month,day

yr=year MOD 100
ns=N_ELEMENTS(yr)
PCsite=REPLICATE(1,ns)			; default location is Calgary

; Decide where Polar Camera was located
rabb=WHERE((yr EQ 93) AND ((month EQ 1) OR (month EQ 2)),nrabb)
IF nrabb GT 0 THEN PCsite(rabb)=2	; Rabbit Lake in Jan, Feb 1993
eur=WHERE(((yr EQ 93) AND (month GE 10)) OR (yr GE 94),neur)
IF neur GT 0 THEN PCsite(eur)=3		; Eureka since October 1993

IF ns EQ 1 THEN PCsite=PCsite(0)	; scalar inputs so scalar output

RETURN,PCsite
END