SIOSEIS script to copy and reformat from SEG-D to SEG-Y



sioseis << eof
procs segdin geom output end
segdin
   stime 3 secs 12
   ffilen 99999   # take all shots (this is the preset!)
#   ftr 1 ltr 480  # skip the auxiliary channels - 161-172 and 161-180
   fcset 1 lcset 1
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   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
  ggx -12.5         # Used to extrapolate gxp!
  dfls 37.0 dbrps 6.25 smear 6.25 rpadd 1000
  bgp 1 1 2 7 3 19 4 43 5 67 6 91 7 115 8 139 9 163 10 187 11 211
      12 235 13 259 14 283 15 307 16 331 17 355 18 379 19 403
      20 427 21 451 21 451 22 463 23 475 24 480
  end
end

output
   ontrcs 480 # reinforce that only 160 traces are to be written
   rewind 0   # leave the tape alone!  
   device /dev/rmt/0cn
   ounit 2 end
end

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

end

eof