function ccdtemp, filename	;returns the ccd temperature of 'filename'
d_read,filename,h0,p0
return,d_value(h0,22)
end