PRO rdffimg,cam,filt,ffimg,az,el inname=STRING(cam,filt $ ,FORMAT='("~cnsr3/flat/ffimg.",2I1,".raw")') 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