;+
;  Name:
;       FILE2FLARE
; function to get the flare number from the SDAC standard format file names.
; i.e. whatever.xxx_flare for fdb, cont, discsp.  Returns flare number of
; 0 if it can't figure it out.
; K Tolbert 
;-
function file2flare, filename

break_file, filename, disk, dir, filnam, ext

n = n_elements(filename)
flare = intarr(n)


for i = 0,n-1 do begin
   start = strpos (ext(i), '_') + 1
   flare(i) = 0
   on_ioerror, trymsfc
   flare(i) = fix (strmid(ext(i), start, 99))
   trymsfc:
   if flare(i) eq 0 then begin
      on_ioerror, next
      flare(i) = fix (strmid(filnam(i), 6, 99))
   endif
   next:
endfor

if n_elements(flare) eq 1 then flare =flare(0)

return, flare & end