****************   The tape 444 -473   redo     **********
#! /bin/csh
#
#     ****     The rp numbers will be bogus.
#              The ranges will be "right" though
#
/users/sioseis/bin/sioseis << eof
procs segdin geom output end
segdin
   loader 5
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
#  put the ranges in the headers
  fs 1 ls 999999 dfls 0
  gxp 480 -180 ggx -12.5 dbrps 6.25 smear 6.25
  end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof



****************      Line 26:       ********************
#! /bin/csh
# Read a SEG-D 3490 and write TWO SEG-Y output tapes
#  and a copy on the RAID
#
# On ew0210, heezen is configured as follows:
# /dev/rmt/0 = 3490
# /dev/rmt/1 = DLT 1
# /dev/rmt/2 = DLT 2
#
#

if( $#argv < 1 ) then
    echo "Usage: copy line-name"
    echo "e.g., copy 4b"
    exit 1
endif

set LINE = $1

/users/sioseis/bin/sioseis << eof

procs segdin geom diskoa diskob output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
# NOTE: this is for the streamer towing from the harness
#  put the ranges in the headers
  fs 1 ls 999999 type 9   ! calculate dfls from the real-time GPS
  gxp 480 -20 ggx -12.5 dbrps 6.25 smear 6.25
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /data/seisnet/0210/shots/latest.shot.segy end
end
diskob
    big yes   # allow file size exceeding 2 Gb
    opath /mnt/agave/baja/line$LINE.segy end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof




****************      Lines ? - 25, 27-39       ********************
***   Use type 9 geometry    ****

#! /bin/csh
# Read a SEG-D 3490 and write TWO SEG-Y output tapes
#  and a copy on the RAID
#
# On ew0210, heezen is configured as follows:
# /dev/rmt/0 = 3490
# /dev/rmt/1 = DLT 1
# /dev/rmt/2 = DLT 2
#
#
if( $#argv < 1 ) then
    echo "Usage: copy line-name"
    echo "e.g., copy 4b"
    exit 1
endif

set LINE = $1
/users/sioseis/bin/sioseis << eof
procs segdin geom diskoa diskob output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
#  put the ranges in the headers
  fs 1 ls 999999 type 9   ! calculate dfls from the real-time GPS
  gxp 480 -180 ggx -12.5 dbrps 6.25 smear 6.25
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /data/seisnet/0210/shots/latest.shot.segy end
end
diskob
    big yes   # allow file size exceeding 2 Gb
    opath /mnt/agave/baja/line$LINE.segy end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof


***********    Lines 1 - ?   *************************
****     User must type in the offset   **************
#! /bin/csh
# Read a SEG-D 3490 and write TWO SEG-Y output tapes
#  and a copy on the RAID
#
# On ew0210, heezen is configured as follows:
# /dev/rmt/0 = 3490
# /dev/rmt/1 = DLT 1
# /dev/rmt/2 = DLT 2
#
#

if( $#argv < 2 ) then
    echo "Usage: copy line-number shot_spacing_meters"
    echo "e.g., copy 4b 150"
    exit 1
endif

set LINE = $1
set SHOTSPAC = $2

/users/sioseis/bin/sioseis << eof

procs segdin geom diskoa diskob output end
segdin
   ffilen 99999   # take all shots (this is the preset!)
   fcset 1 lcset 1 # toss out any auxillary channels
   offline yes  # eject after the rewind after EOT
   newfile yes  # start a new SEG-Y file on every SEG-D tape
   iunit 0 end
end
geom
#  put the ranges in the headers
  fs 1 ls 999999 type 2
  gxp 480 -180 ggx -12.5 dfls $SHOTSPAC dbrps 6.25 smear 6.25
  end
end
diskoa
# write every 20th shot to a "circular" file
    fno 1 lno 999999 noinc 20 rewind 1
    opath /data/seisnet/0210/shots/latest.shot.segy end
end
diskob
    big yes   # allow file size exceeding 2 Gb
    opath /mnt/agave/baja/line$LINE.segy end
end
output
   rewind 0   # leave the tape alone!
   ounit 1 # dlt 1
   ounit2 2 # dlt 2
   end
end
end
eof