function irtemp1, filename	;returns the ir temperature of 'filename'
d_irread,filename,h0,p0,g0
return,d_value(h0,105)
end