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

#! /bin/csh
if( $#argv < 1 ) then
    echo "Usage: stack line-number"
    exit 1
endif
set LINENO = $1

sioseis << eof
procs segdin geom prout gather smute nmo stack diskoa end

segdin
   ffilen 99999   # take all shots (this is the preset!)
   ftr 121 ltr 480 trinc 2 fcset 1 lcset 1
   stime 4 secs 4.0 
   decimf 2
   offline yes  # eject after the rewind after EOT
   iunit 11 end
end

diskob 
 # write every 50th shot to a "circular" file 
    fno 1 lno 999999 noinc 50 rewind 1 
    opath /ldata/realtime/shots/latest.shot end 
  end

geom
  type 2 # increment the shot loaction based on the shot number
  fs 1 ls 999999  # all shot have the same parameters (preset)
  gxp 480 -181.65   # RESET the closest group only.
  ggx -12.5         # Used to extrapolate gxp!
!  dfls 37.5 dbrps 6.25 smear 6.25
  dfls 37.5 dbrps 12.5 smear 12.5
  rpadd 1000
  end
end

gather
   maxtrs 90 maxrps 500 end
end

smute 
 fno 1 lno 999999
 interp on
 xsets 
   81.5 4.0 4.1
  181.5 4.0 4.1
 1181.5 4.0 4.1
 2181.5 4.0 5.3
 4181.5 4.0 5.50
 6181.5 4.0 5.75 end
end 
 
gains
#  Do spherical divergence.  
#  alpha .4 means range 263 is multiplied by 9, range 4263 by 30
#   type 8 alpha .4 end
#  alpha .5 means range 263 is multiplied by 15.7, range 4263 by 68.4
    type 8 alpha .5 end
end

nmo
# real time nmo, replace interpolation by RP to WB depth in Meters.
# If water depth changes by > 100 m, use previous value. Water-depth
# velocity functions supplied by Graham, interpolation by iso-velocity layering
 vtrkwb 250 stretc 0.06
  fno 3300 lno 3300 vtp 1500 4.400
			1525 4.70
			1525 4.8
			2100 5.2
			3500 6.3 end
  fno 3500 lno 3500 vtp 1500 4.667
			1525 4.967
			1525 5.067
			2100 5.467
			3500 6.567 vintpl 2 end
  fno 3700 lno 3700 vtp 1500 4.9333
			1525 5.2333
			1525 5.3333
			2100 5.7333
			3500 6.8333 vintpl 2 end
  fno 3900 lno 3900 vtp 1500 5.2
			1525 5.5
			1525 5.6
			2100 6.0
			3500 7.1 vintpl 2 end
			
			
end

prout
# print the stacked trace number just so the light blink!
 fno 0 lno 99999 ftr 479 ltr 480 end
end

diskoa
    opath /ldata/realtime/stacked/line.$LINENO end
end

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