pro rd_sxg, input1, input2, sxgdata, indir=indir, status=status, $
    nearest=nearest, vnum=vnum, full_weeks=full_weeks, qdebug=qdebug, $
    _extra=_extra
    
;

prefix='SXG' 
indir=get_logenv('DIR_SXT_' + prefix)
;
rd_week_file, input1, input2, prefix, sxgdata, $
    vnum=vnum, indir=indir, nearest=nearest, status=status, $
    full_weeks=full_weeks, qdebug=qdebug
;
if data_chk(_extra,/struct) and data_chk(sxgdata,/struct) then begin
   filt=(tag_names(_extra))(0)
   filtx=['AL1','ALUM','ALMG','DAGWOOD']    ; permitted synonyms
   filts=[ 2,    2,    3,    3]
   ssf=where(strmid(filt,0,3) eq strmid(filtx,0,3),sscnt)
   if sscnt gt 0 then begin
      ssf=where(gt_filtb(sxgdata) eq filts(ssf(0)),sscnt)
      if sscnt eq 0 then begin
         message,/info,"No SXL records with filter: " + filt
         sxgdata=0
      endif else sxgdata=sxgdata(ssf)
   endif else begin
      message,/info,"Do not recognize keyword: " + filt
      message,/info,"Must be one of: " + arr2str('/' + filtx,', ')
   endelse
endif

end