Return to Edgetech example          Return to SIOSEIS examples

sioseis << eof
procs diskin header wbt wbt2 mute mix header2 shift diskoa end
diskin
   fno 1 lno 13621 allno no
   ipath data.filtered end
end
header
   fno 0 lno 999999 l6 = l3 l60 = l50 end
end
mute
   fno 1 lno 999999 ttp 1 -.002 addwb yes end
end
diskoa
   opath data_shifted end
end
mix
    type 4  lhdr 59 weight
    1 1 1 1 1 1 1 1 1 1
    1 1 1 1 1 1 1 1 1 1
    1 1 1 1 1 1 1 1 1 1 end
end
wbt2
   index 60 !  water bottom
   thres .1e-07 track .005 end
end
header2
   fno 0 lno 999999
   r58 = r59 - r60   ! multiple period - bottom
   end
end
shift
    fno 0 lno 999999 indices r58 end
end
wbt  ! these came from acorr  8 trace mix before pick
     ! and no filter
   index 59     !  this is the multiple
      1.0000         0.43083E-01
      2.0000         0.43000E-01
      3.0000         0.43000E-01
      4.0000         0.43000E-01
      5.0000         0.43000E-01
      6.0000         0.43000E-01
      7.0000         0.43000E-01
.
.
.
.
      13994.         0.10967
      13995.         0.10967
      13996.         0.10967
      13997.         0.10967
      13998.         0.10967
      13999.         0.10967
end
end
eof