function get_flare_qldata,FLARE_ID=flare_id,MIN_PEAK=min_peak_countrate,VERB=verb
;+
; PURPOSE 
;  To get biggest flares from SSW flare list with positions, fluxes, etc.
;
; INPUTS:
;   min_peak_countrate is the minimum rate returned
; OUTPUTS:
;   Structure containing the flarelist items desired
;
; EXAMPLE:: flares=get_flare_qldata(MIN_PEAK=1000.,/verb)
;  If  min_peak_countrate = 0 you get all the flares
;  
; VERSION HISTORY
;  Ed Schmahl March 9, 2004
;-

flares= hsi_read_flarelist()

if n_elements(min_peak_countrate) GT 0 then begin
  w=where(flares.peak_countrate gt min_peak_countrate,nw)
  if nw EQ 0 then message, 'No flares with min_peak_countrate >'+strcompress(min_peak_countrate)
endif
if n_elements(flare_id) GT 0 then begin
    w=where(flares.id_number eq flare_id,nw)
    if nw EQ 0 then message, 'No flares with id='+strcompress(flare_id)
endif


peak_time=anytim(flares(w).peak_time,/yo)
peak_countrate=flares(w).peak_countrate
id_number= flares(w).id_number
x_position=flares(w).x_position
y_position=flares(w).y_position


if keyword_set(verb) then for j=0,nw-1 do $
   print,j,id_number(j),' ',peak_time(j),peak_countrate(j),fix(x_position(j)),fix(y_position(j))


return,flares(w)

end