Heave Removal Using User Picked Water Bottom Times

               Smaller header mix (28 vs 34 traces)

    The only difference between this and the earlier "pick mix"
example is that the water bottom picks are averaged across 28
traces in this example and 34 traces in the previous example.
    This one (28 trace mix) is better because the heave period
is closer to 28 traces than 34.

    I guess a better scheme would be to filter the picks rather
than average them with mix.  If anyone reads this and wants a 
filter, mail me (phenkart@ucsd.edu).

sioseis << eof1
procs diskin filter wbt header diskoa end
diskin
   fno 469 lno 1475 allno no set .190 .240
   ipath L001_001.anal end
end
filter
   fno 1 lno 99999 pass 500 2000 ftype 0 end
end
diskoa
   opath L001_001.heave end
end
wbt
   thres 5000 end
end
header
   fno 0 lno 99999 r59 = r50 end
end
end
eof1

sioseis << eof2
procs diskin mix header shift agc plot end
diskin
   ipath L001_001.heave end
end
agc
   winlen .01 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
   1 1 1 1 1 1 1 1 end
end
header
   fno 0 lno 99999 ftr 0 ltr 99 r60 = r59 - r50 end
end
shift
   fno 0 lno 99999 indices r60 end
end
plot
   wiggle 0  ann gmtint anninc 1
   trpin 150 def .008  tlines .001
   srpath sunfil
  nibs 2859 nsecs .04 vscale 75.75758
   end
end
end
eof2
xloadimage -r 90 sunfil &