pro time_and_fnumber_extract,time_list,hr,mn,sec,time,fnumber

; This procedure extracts the time and file number fields from
; the array holding this information in an offset input file
; v1 B. Rizk 2/18/98
; v2 7/20/98
; v3 7/29/98

s_t=size(time_list)
time=fltarr(s_t(1))
hr=fltarr(s_t(1))
mn=fltarr(s_t(1))
sec=fltarr(s_t(1))
fnumber=fltarr(s_t(1))

for i=0,s_t(1)-1 do begin
  t_l=strsplit(time_list(i),'_',/extract)
  m_t_l=strsplit(t_l(0),':',/extract)
  reads,m_t_l(0),dum_hr
  reads,m_t_l(1),dum_mn
  reads,m_t_l(2),dum_sec
  hr(i)=dum_hr
  mn(i)=dum_mn
  sec(i)=dum_sec
  time(i)=3600.*dum_hr+60.*dum_mn+dum_sec
  fnumber(i)=float(t_l(1))
endfor

return
end