function mtime,filename	;returns the mission time for 'filename'
; created 8/4/97, csee

if strpos(filename,'Ir') ne -1 then goto,ir

d_read,filename,h0,p0
goto,exit

ir:
d_irread,filename,h0,p0,g0

exit:
return,d_value(h0,88)
end