SIOSEIS script to cross-correlate and pick.



#!/bin/csh
@ shotno = 2
while( $shotno <= 72 )
sioseis << eof
procs diskin weight xcorr wbt diskoa end
diskin
   fno $shotno lno $shotno
   ipath tom.segy end
end
weight
    fno 0 lno 99999 twp
      1 -2 2 -2 3 -2 4 -2 5 -2 6 -2 7 -2 8 -2 9 -2 10 -2
     11 -2 12 -2 13 -2 14 -2 15 -2 16 -2 17 -2 18 -2 19 -2 20 -2
     21 -2 22 -2 23 -2 24 -2 25 -2 26 -2 27 -2 28 -2 29 -2 30 -2
     31 -2 32 -2 33 -2 34 -2 35 -2 36 -2 37 -2 38 -2 39 -2 40 -2
     41 -2 42 -2 43 -2 44 -2 45 -2 46 -2 47 -2
     end
end
xcorr
  setp .6 1.9 setd .5 2.5 nlags 1500 
  psno $shotno ppath  closest.segy ptr 1 end
end
wbt
    peak pos lprint 4 end
end
diskoa 
   posaft -1
   opath xcorr.closest.segy end
end
end
eof
@ shotno++
end