pro crds_20aug2006, hires

  ;; Tests and focus
  hires[where(hires.frame LE 3001)].flg_anly = 0

  ;; Unnecessary arcs
  hires[where(hires.frame EQ 3041)].flg_anly = 0

  ;; Bad Flats
  hires[where(hires.frame EQ 3004)].flg_anly = 0
  hires[where(hires.frame EQ 3034)].flg_anly = 0
  hires[where(hires.frame EQ 3035)].flg_anly = 0

  ;; Bad XDANGL

  ;; Bad Obj
  hires[where(hires.frame EQ 3073)].flg_anly = 0

  ;; Unnecessary flats
  hires[where(hires.frame EQ 3057)].flg_anly = 0
  hires[where(hires.frame EQ 3065)].flg_anly = 0
  hires[where(hires.frame EQ 3070)].flg_anly = 0
  hires[where(hires.frame EQ 3078)].flg_anly = 0
  hires[where(hires.frame EQ 3081)].flg_anly = 0
  hires[where(hires.frame EQ 3084)].flg_anly = 0
  hires[where(hires.frame EQ 3089)].flg_anly = 0

  hires_wrstrct, hires, fits='hires_20aug2006.fits'

  return
end