;+
;Procedure: st_swea_load
;
;Purpose:  Loads stereo swea data
;keywords:
;   TRANGE= (Optional) Time range of interest  (2 element array).
;   /VERBOSE : set to output some useful info
;   /ALL     : get all All SKY keogram stations
;Example:
;   st_load_swea
;Notes:
;  This routine is (should be) platform independent.
;
;
; $LastChangedBy:  $
; $LastChangedDate:  $
; $LastChangedRevision: $
; $URL:$
;-
pro st_swea_load,type,all=all,files=files,trange=trange, $
    verbose=verbose,burst=burst,probe=probe, $
    source_options=source_options

if not keyword_set(source_options) then begin
    stereo_init
    source_options = !stereo
endif
mystereo = source_options

if not keyword_set(probes) then probes = ['a','b']
if not keyword_set(type) then type = 'DIST'
if not keyword_set(ver) then ver='V02'

res = 3600l*24     ; one day resolution in the files
tr = timerange(trange)
n = ceil((tr[1]-tr[0])/res)  > 1
dates = dindgen(n)*res + tr[0]

for i=0,n_elements(probes)-1 do begin
   probe = probes[i]
   pref = 'st'+probe+'_' + (keyword_set(burst) ? '_b' : '')
   case probe of
   'a' :  path = 'l1/ahead/swea/YYYY/MM/STA_L1_SWEA_'+type+'_YYYYMMDD_'+ver+'.cdf'
   'b' :  path = 'l1/behind/swea/YYYY/MM/STB_L1_SWEA_'+type+'_YYYYMMDD_'+ver+'.cdf'
   endcase

   relpathnames= time_string(dates,tformat= path)

   files = file_retrieve(relpathnames,_extra = mystereo)

   cdf2tplot,file=files,all=all,verbose=!stereo.verbose ,prefix=pref    ; load data into tplot variables

   vname=pref+'Distribution'

   get_data,vname,data=d
   printdat,d,vname

   d2 = {x:d.x,  y:total(d.y,2), v:d.v1}
   store_data,pref+'s',data=d2,dlimit={spec:1,zlog:1,ylog:1}
endfor


end