A later stack script
Changes:
1) stacking 120 of 480 traces (2km of 6km streamer)
2) A new velocity function with a low velocity zone.
3) New geom option type 9 - binning by realtime lat/long
4) New gains parameter tadd used with subwb yes


#!/bin/csh -f
if( $#argv != 2 ) then
    echo "Usage: stack line-number shot_spacing (in meters)"
    exit 1
endif
set LINENO = $1
set DX = $2

mkdir /export/home/EW0008/Realtimestack/Line$LINENO
chmod a+rw /export/home/EW0008/Realtimestack/Line$LINENO

#./sioseis << eof
/home/henkart/bin/sioseis-fast << eof
#./sioseis-fast << eof

procs segdin geom prout gather nmo mute stack
      diskoe filter gains plot end

segdin
   ffilen 99999 
   fcset 1 lcset 1
   ftr 361 ltr 480 ! drop long ranges (1-360 ~= 2km to 4km)
   stime 3 secs 4
   offline yes  # eject after the rewind after EOT
   iunit 4 end
end

tredit
  limits -2000 0 kill outside lhdr 10  # kill 2km to 6km
  fno 0 lno 999999 end
end

prout
  fno 0 lno 999999 ftr 480 ltr 480 noinc 10 end
end

weight
   fno 0 lno 9999999 twp 51 0 end 
end

geom
  type 9  # The new dfls from the realtime nav block
#  type 2 # increment the shot location based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  ggx -12.5         # Used to extrapolate gxp!
# dfls $DX dbrps 6.25 smear 6.25
  dfls 37.5 dbrps 6.25 smear 6.25
  gxp 480 -184.25 ggx -12.5 dfls 37.5 dbrps 6.25 smear 6.25
  bgp 1 6 2 18 3 30 4 42 5 66 6 90 7 114 8 138 9 162 10 186 11 210
     12 234 13 258 14 282 15 306 16 330 17 354 18 378 19 402 20 426
     21 438 22 459 23 462 24 474
  rpadd 1000 end
end

mute
   fno 1 lno 999999
     addwb yes xtp 2000 -.03 2500 .6 6000 .7 end
end

plot
   nsecs 4
   scalar 2.E-04
   tlines 0.1 0.5 1 nibs 7224
   def 0.150 clip .1 trpin 75 wiggle -40 vscale 5
   ann gmtint anninc 5
   opath /export/home/EW0008/Realtimestack/Line$LINENO/siopltfil.Line$LINENO
  end
end
  
diskoe   # Write out disk file
  opath /export/home/EW0008/Realtimestack/Line$LINENO/stack.line$LINENO end
end
gather
   maxtrs 90 maxrps 500 end
#   maxtrs 60 maxrps 500 end
end

filter
#   ftype 0 dbdrop 48 pass 20 120 end
   ftype 0 dbdrop 48 pass 40 220 end
end

gains
   type 3 alpha 4 subwb yes tadd 3 end
end

nmo
 addwb yes stretc 1.
  vtp 1510 0 1530 .3 1550 .4 1510 .5 1560 .6 1580 .9 1650 1.5 end
end

end

eof

Go to the list of seismic processes.      Go to SIOSEIS introduction.