PRO rdfwtemp,year,month,day,cam,tfw,type=type

IF N_Params() LT 4 THEN BEGIN
    Message,'4 parameters required',/INFORMATIONAL
    Return
    ENDIF
IF N_Elements(type) EQ 0 THEN type='calib' ELSE type=StrLowCase(type)

rdilist,cam,year,month,day,0,0,0,n,t,f
w=Where(StrPos(f,type) GT 0,nw); & print,w
n=nw & t=t(w) & f=f(w); & print,f0
tfw=FltArr(n)
FOR j=0,n-1 DO BEGIN
    rdkihd,f(j),hb
    h=gethd(hb)
    tfw(j)=h.misc.temp.tfw.mean/10.
    ENDFOR

Return
END