pro extract_time,time,hr,min,sec

; This procedure extracts the time from an ascii time string
; v1 12/8/98 this extracts hr, min, sec from time in seconds

hr=float(long(time)/3600)
min=float(long(time-3600.*hr)/60)
sec=float(time-3600.*hr-60.*min)

end