function irtemp,mission_time,directory	

;returns the IR temperature at a given mission time
;by interpolating the IR data
;You can pass a directory or it uses the current Test Log directory.

cd,'',current=cdir & cd,cdir	    ;establishes cdir as current directory
if n_params() eq 1 then dir=cdir else dir=directory

cd,dir+'/DB/Ir
files=findfile(count=nfiles)
data=fltarr(nfiles,2)				;mission time and eatemp

for i=0,nfiles-1 do begin
 d_irread,files(i),h,p,g
 data(i,*)=[d_value(h,88),(d_value(h,105)+d_value(h,106))/2]	;mission time and eatemp
endfor

temp=interpol(data(*,1),data(*,0),mission_time)

cd,cdir
return,temp(0)
end