sioseis << eof procs diskin header shift wbt filter gains plot end diskin format knudsen ipath env-0012_2011_155_1053_100212_CHP4.0_RAW_021.sgy end end header r60 = i109 / 100. r59 = r60 / 1500. r58 = r59 * 2. end end shift indices r58 end end gains subwb yes type 5 alpha 8 end end wbt vel 1500 end end filter ftype 0 pass 2 600 dbdrop 48 end end plot stime 3.4 secs .1 dir ltr dptr 1 tlines .05 .1 colors gray opath siofil wiggle 0 ann gmtint anninc 5 trpin 300 def .01 vscale 20 end end end eof sio2sun siofil sunfil.ras display -rotate 270 sunfil.ras &