pro compare_sdac_msfc, needflares,num=num

;compares cont, discsp, and fdb directories to see which flares we
;still need from gibson.  checks for flares over number 4358 - can
;be changed as needed, once we decide which flares will never be
;available.
;
; Created 9/20/94 Amy Skowronek
; Modified 9/22/97 AES check above flare #4670
;                 return needed flares in an array
;		  no longer write file flares.lis, since
;                 using files on sdac
; Modified 2-Feb-2000 EVA - eva@kano.nascom.nasa.gov
;		 	    Software will now search for all CONT/DISCSP/FDB files
;			    to make sure year 2000 files are read.



;contdir = findfile ('BATSE_CONT:9*.cont_*')
contdir = findfile ('BATSE_CONT:*.cont_*')
contflares = file2flare(contdir)
contflares = contflares(sort(contflares))
contflares= contflares(uniq(contflares))


;discspdir = findfile ('BATSE_DISCSP:9*.discsp_*')
discspdir = findfile ('BATSE_DISCSP:*.discsp_*')

discspflares = file2flare(discspdir)
discspflares = discspflares(sort(discspflares))
discspflares = discspflares(uniq(discspflares))


;discladir = findfile ('BATSE_FDB:9*.fdb_*')
discladir = findfile ('BATSE_FDB:*.fdb_*')
disclaflares = file2flare(discladir)
disclaflares= disclaflares(sort(disclaflares))
disclaflares= disclaflares(uniq(disclaflares))


cflares=intarr(disclaflares(n_elements(disclaflares)-1)+1)
dflares=intarr(disclaflares(n_elements(disclaflares)-1)+1)
dlflares=intarr(disclaflares(n_elements(disclaflares)-1)+1)

cflares (contflares) = 1
dflares (discspflares) = 1
dlflares (disclaflares) =1
eflares=cflares+dflares+dlflares

need = where(eflares lt 3, kneed)


if keyword_set(num) then fullneed = where(need gt num) else $
fullneed = where(need gt 4670)
;fullneed = where(need gt 4358)
if fullneed(0) gt 0 then needflares=strtrim(string(need(fullneed)),2) 
;else needflares=""   

if n_elements(needflares) ge 1 then begin
print,'Here is the list of flares to make cont and discsp files for.'
print,' '
print,needflares
endif else begin
print,'Cont and Discsp files are all caught up.'
endelse
done:
return&end