pro rev_lvl3,year,month=month

;Visually review, month by month, the level 3 images initially
;chosen for making smoothies to eliminate any residual bad images.
;  9/06/2017, LWA

yr=strtrim(year,2)

filz=file_search('fil_list/ok_fts_'+yr+'_'+month+'.genx')
print,year,'  ',month,'  ',filz
restgen,file=filz,lvl3
mreadfits,/silent,lvl3,index,data
help,index,data
wdef,/um
loadct,3,/silent
over
t30=where(gt_dpe(index) gt 25,nt30)
if nt30 gt 0 then begin
   lt30=delind(indgen(n_elements(index)),t30)
   help,t30,lt30
   out30=stepper2(index,data,pauz=0.1,subs=t30)
   outlt30=stepper2(index,data,pauz=0.1,subs=lt30)
   out=intarr(n_elements(index))
   out(t30)=out30
   out(lt30)=outlt30
endif else begin
   out=stepper2(index,data,pauz=0.1)
endelse
ok=where(out eq 0)
help,lvl3,out,ok
if n_elements(ok) eq n_elements(filz) then goto,skip
lvl3=lvl3(ok)
yesnox, 'Do you wish to savegen the changes?', in, 'yes'
savegen,file='fil_list/ok_fts_'+yr+'_'+month+'.genx',lvl3
skip:
end