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, Fab 1993
eur=WHERE(((yr EQ 93) AND (month GE 10)) OR $
           (yr EQ 94) OR (yr EQ 95) OR (yr EQ 96) OR $
          ((yr EQ 97) AND (month LE 3)),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