pro tidy_data, index, data, ii, dd bad = where(gt_percentd(index) lt 100) good = kill_index(indgen(n_elements(index)),bad) ii = index(good) dd = data(*,*,good) end