function chiptemperature,mission_time,directory	

;returns the CCD temperature at a given mission time (in seconds)
;by interpolating the houskeeping 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/HKeeping
files=findfile(count=nfiles)
data=fltarr(nfiles,2)				;mission time and eatemp

for i=0,nfiles-1 do begin
 d_read,files(i),h,p
 data(i,*)=[d_value(h,88),d_value(h,22)]	;mission time and eatemp
endfor

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

cd,cdir
return,temp(0)
end