;
;
; Reads balloon data.
;
; Call as:
;  filename = "Balloon.dat'
;  read_balloon, filename,time, az, el
;
; 
;
; David Noone <dcn@colorado.edu> - Sat Nov  7 12:20:09 MST 2009
;
;------------------------------------------------------------------------
pro read_balloon, filename, time, az, el

  nlines = file_lines(filename)
  nobs = nlines - 5		; assume 5 header lines

  time = fltarr(nobs)
  az   = fltarr(nobs)
  el   = fltarr(nobs)
  cbuf = 'character buffer'
  t = 0.0 & a = 0.0 & e = 0.0
  openr,lu,filename,/get_lun
    readf,lu,cbuf
    readf,lu,cbuf
    readf,lu,cbuf
    readf,lu,cbuf
    readf,lu,cbuf
    for i = 0, nobs-1 do begin
      readf,lu,t, a, e
      time[i] = t
      az[i]   = a
      el[i]   = e
    endfor
  free_lun,lu


  return
end