pro rd_sxl, sttim, entim, index, data, infil=infil, summary=summary, new=new, old=old
;
;
qdebug = 1
exten = 'a.02'
if (keyword_set(old)) then exten = 'a.01'
;
if (not keyword_set(infil)) then begin
    weeks = week_loop(sttim, entim)
    files = 'sxl' + string(weeks.year mod 100, format='(i2.2)') + '_' + $
            string(weeks.week, format='(i2.2)') + exten
    files = concat_dir('$DIR_SXT_SXL', files)
    ss = where(file_exist(files), count)
    if (count eq 0) then begin
    print, 'RD_SXL: Cannot find the necessary files:'
    prstr, '   ' + files
    return
    end
    files = files(ss)
    rd_roadmap, files, roadmap
    if (get_nbytes(roadmap) lt 10) then return
    dsets = sel_timrange(roadmap, sttim, entim, /between)
    qinfil = 0
end else begin
    files = infil
    dsets = -1
    qinfil = 1
end
;
if (keyword_set(summary)) then begin
    rd_roadmap, files, index
    ss = sel_timrange(index, sttim, entim, /bet)
    if (ss(0) ne -1) then index = index(ss)
end else begin
    rd_xda, files, dsets, index, data
end
;
if (keyword_set(qstop)) then stop
end