PRO rdmeanparms,cam,c0,r0,r,k,ca,site=site

IF KEYWORD_SET(site) THEN BEGIN
    IF (site EQ 1) OR (site EQ 2) OR (site EQ 3) THEN loc=site $
    ELSE MESSAGE,'Bad site code: '+STRTRIM(site,2),/INFORMATIONAL
    ENDIF

IF NOT KEYWORD_SET(loc) THEN BEGIN
    REPEAT BEGIN
        PRINT,'Enter the camera location'
        PRINT,'1: U of C    2: Rabbit Lake    3: Eureka, NWT'
        READ,loc
	ENDREP UNTIL (loc EQ 1) OR (loc EQ 2) OR (loc EQ 3)
    ENDIF

IF loc LT 3 THEN file='/aragorn/user2/steele/schee/dat/meanparms.RL' $
	    ELSE file='/aragorn/user2/steele/schee/dat/meanparms.EU'

mpstr=getfile(file)

st=mpstr(cam)
c0=FLOAT(getwrd(st,0))
r0=FLOAT(getwrd(st,1))
r=FLOAT(getwrd(st,2))
k=FLOAT(getwrd(st,3))
IF loc NE 1 THEN ca=FLOAT(getwrd(st,4)) ELSE ca=0.

RETURN
END