Return to SIOSEIS examples.          Return to Eel River chirp example.

             WITH DATUM CORRECTION


sioseis << eof
procs diskin wbt filter header mix shift gains plot end
diskin
   set .1 .8   ! need for big datum shifts
   fno 86738 lno 89938 allno no
!   fno 86738 lno 87938 allno no noinc 2
   ipath yr1999day217-2244z.segy end
end
header
  r59 = r50 - r60   ! subtract the picked time from the theoretical
  end
end
mix
    type 4 hdr 59 weight
    1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
    end
end
prout
  indices l3 l16 r50 r59 r60
    fno 0 lno 99999 ftr 0 ltr 999 end
end
shift
  indices r59 end
end
filter
   ftype 0 pass 500 1000 dbdrop 48 end
end
wbt
!  xstar put the water bottom time in buf(50)
   index 60   ! put this pick in real word 60
   thres .2e-08 track .1 end
end
gains
   tgp .005 1 .03 4 .04 8 addwb yes end
end
plot
   stime .5
   nibs 2859 vscale 20 nsecs .25 tlines .01 .05 .1
   colors  gray
   opath siofil.gray
   wiggle 0
   anninc 1 ann gmtint
   trpin 300 def .004  end
end
end
eof
sio2sun siofil.gray sunfil
xloadimage -r 90 sunfil &

Return to SIOSEIS examples.          Return to Eel River chirp example.