function irtemp2, filename      ;returns the 2nd ir temperature of 'filename'
d_irread,filename,h0,p0,g0
return,d_value(h0,106)
end