PRO readnorm,cam,filt,map,maz,mza

;procedure to read in a normalizing map for a flat field image

name=STRING(cam,filt,FORM='("/jasper/cnsr3_data1/flat/fnorm.f??",2I1)')
fl=FINDFILE(name+"*")
fl=fl(0)
OPENR,unt,fl,/GET_LUN
np=0L
READU,unt,np
map=FLTARR(np)
maz=FLTARR(np)
mza=FLTARR(np)
READU,unt,maz,mza,map
CLOSE,unt & FREE_LUN,unt
RETURN 
END