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

sioseis << eof
procs segdin geom header prout gather 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

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

nmo
  addwb yes vtp 1500 0 1510 .21 1520 .45 15
end
header 
  fno 0 lno 999999 ftr 0 ltr 99999 
   r50 = l16 / 750. 
   end 
end 
mute 
   addwb yes xtp 2000 -.1 4000 .4 6000 .9   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