;ex: PLOT_BUFFER, '960725' 
;or  PLOT_BUFFER, '960725_23'
;use /ecs for reading .QKL and .REL files
;ex: PLOT_BUFFER, '960805', /ECS
;
; @(#)plot_buffer.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;
PRO PLOT_BUFFER, dte, ecs=ecs, dostop=dostop

   IF KEYWORD_SET(ECS) THEN $
      hk = READALLHK(dte, /ecs) $
   ELSE $
      hk = READALLHK(dte)
   hk3 = GETHKN(hk, 3)
   w1 = FIX(REFORM(hk3(252,*)))
   w2 = FIX(REFORM(hk3(253,*)))

   buff = (w1*2^8) + w2
   buff = buff/20

   offset = 6
   time = tai2utc(obt2tai(hk3(offset:offset+5,*)))

   UTPLOT, time, buff, YRANGE=[0,100], YTITLE='% buffer used'

   mins = (utc2tai(time(n_elements(time)-1)) - utc2tai(time(0))) / 60.

   a = WHERE(buff EQ 0)
   IF (a(0) EQ -1) THEN BEGIN
      PRINT, 'Buffer empty 0 % of plot range.'
   ENDIF ELSE BEGIN
      p = FLOAT(N_ELEMENTS(a))/FLOAT(N_ELEMENTS(buff))
      PRINT, 'Buffer empty ', p*100, ' % of plot range. ', p*mins, ' minutes.'
   ENDELSE
   a = WHERE(buff GE 95)
   IF (a(0) EQ -1) THEN BEGIN
      PRINT, 'Buffer full 0 % of plot range.'
   ENDIF ELSE BEGIN
      p = FLOAT(N_ELEMENTS(a))/FLOAT(N_ELEMENTS(buff))
      PRINT, 'Buffer full  ', p*100, ' % of plot range. ', p*mins, ' minutes.'
   ENDELSE
   p = STDEV(buff, mn)
   PRINT, 'Buffer avg   ', mn, ' % '

   IF KEYWORD_SET(DOSTOP) THEN STOP

END