pro gbm_qlook_bgo, daily_files, ut=ut, data=data, havedata=havedata, _extra=_extra

havedata = 0

first = 1
for i=0,n_elements(daily_files)-1 do begin
  gbm_rd_pha, daily_files[i], ut2=ut2, data=bdata, type='bgo', _extra=_extra, status=status
  if ~status then goto, next
  if first then begin
    data = total(bdata,2)  ; total b0 and b1 detectors
    ut = ut2
    first = 0
  endif else begin
    nd = n_elements(ut[0,*])
    d100 = where( anytim(ut[0,nd-100:*]) gt (anytim(ut2[0,0])-.01), n100)
    if n100 ge 1 then begin
      data = data[*,0:nd-100+d100[0]-1]
      ut = ut[*,0:nd-100+d100[0]-1]
    endif
    data = [[data], [total(bdata,2)]]
    ut = [[ut], [ut2]]
  endelse
next: 
endfor

havedata = exist(data) ? 1 : 0

end