function fh_r_time, header, error=error


time=fh_r_key(header,'time-obs',/ch, error=error)

	if error then t=fh_r_key(header,'time',/ch, error=error)

	if error then begin
t0=fh_r_key(header,'utstart',/ch, error=error0)
t1=fh_r_key(header,'utstop',/ch, error=error1)

error=error1 or error1

if error ne 1 then time=smh((hms(t1)+hms(t0))*3600d0/2)
	endif

return,time

	end