sioseis << eof procs diskin despike prout tx2fk fkfilt fkmigr fk2tx diskoa prout end diskin fno 21700 lno 23600 # read 1900 traces ipath /orizaba1/mcs.dir/stacked/stack.line3 end end diskoa opath line3.fkmigr.1 end end fkfilt dipcut -6 6 dippas -5 5 end end filter pass 5 50 ftype 0 dbdrop 24 end end tx2fk nxpad 20 end # x pad 20 traces plus (2048-(1900+20+20)) end despike fac 5 end end fkmigr vel 1500 deltax 12.5 end end fk2tx end end prout fno 0 lno 999999 noinc 20 ftr 0 ltr 9999 end end endOutput data