SIOSEIS script to remove multiples via nmo, fkfilt, movein
Courtesy of Eric Hallenborg, IGPP/SIO

procs diskin nmo tx2fk fkfilt fk2tx nmo2 nmo3 diskoa end

diskin
 ipath line21.cos.4196.4204.segy ftr 1 ltr 480 end
end

nmo
  stretc 9 vtp 1500 5.0 end
end

tx2fk
 nxpad 50 path1 scratch1 path2 scratch2 end
end

fkfilt
 DipPas -1 1 DipCut -0.5 0.5 Deltax 12.5 end
end

fk2tx
 end
end

nmo2
  stretc 9 vtp 1500 5.0 type 2 end
end

nmo3
  stretc 9 vtp 2200 5.0 end
end

diskoa
 opath line21.cos.fkfilt.example.segy end
end

end