;*************************************************************************
function flttime,timestr ;  timestring (hh:mm:ss) --> float value (h)
hh=float(strmid(timestr,0,2))
mm=float(strmid(timestr,3,2))
ss=float(strmid(timestr,6,2))
return,hh + mm/60. + ss/3600.
end