Script to decimate the seismic line by keeping every fourth trace. procs diskin diskoa end diskin ipath fdm.line6.2 fno 6001 lno 99999 noinc 4 end end diskoa fon 1 opath fdm.line6.2x4 end end prout fno 0 lno 999999 ftr 1 ltr 1 end end end