pro read_results, crab_discsp, data_dir=data_dir, infile=infile

crab_occ_str, crab_occ_discsp=crab_occ_discsp
checkvar, data_dir,'/umbra/schwartz/occults/data2'
if not exist(infile) then begin
    cd,curr=curr, data_dir
    occ_rslts_file=findfile('*.rslts')
endif else occ_rslts_file = infile

crab_discsp=replicate(crab_occ_discsp,25*n_elements(OCC_RSLTS_FILE))
il = 0
for i=0,n_elements(OCC_RSLTS_FILE)-1 do begin
    openr,lu,/get,occ_rslts_file(i)
    fst = fstat(lu)
    nrecs = fst.size/96
    o = replicate(crab_occ_discsp, nrecs)
    readu, lu, o
    free_lun, lu
    crab_discsp(il:il+nrecs-1)=o
    il = il+nrecs
endfor
crab_discsp=crab_discsp(0:il-1)
if not exist(infile) then cd,curr
end