PRO rdffaug,cam,filt,ffimg,az,el

inname=STRING(cam,filt $
	     ,FORMAT='("~cnsr3/flat/ffimg.",2I1,".aug")')
OPENR,in,inname,/GET_LUN
c=0L & r=c
READU,in,c,r
ffimg=FLTARR(c,r) & az=ffimg & el=ffimg
READU,in,ffimg
READU,in,az
READU,in,el
CLOSE,in
FREE_LUN,in

RETURN
END