pro decday,time,days

; compute decimal day times from integer time tags

; written by Sandy Kramer, HSTX, code 692 - 06/03/96

n = size(time)
len = n(2)
days = dblarr(len)
i = 0l
while ( i lt len ) do begin
 sec = double(time(4,i)) + double(time(5,i))/1000d
 min = double(time(3,i)) + double(sec)/60d
 hour = double(time(2,i)) + double(min)/60d
 days(i) = double(time(1,i)-1) + double(hour)/24d
 i = i + 1
endwhile

return
end