#!/bin/sh

# Syntax: read-9tr-tape.sh reel_number
# Reads 9-track 1/2" tape from M4 Data mod. 9914R drive, with SCSI interface
# First creates directory named reel-reel_number. Then extracts shot files from
# tape and put these into individual files, numbered in sequence.
# Set block size of tape to "0", which really means "variable"
#              mt -f /dev/stx setblk 0
# Check with   mt -f /dev/stx status
#
#
# Assumes tapes written on DFS-V seismic recorder, in SEG-C format
#
# Credits: Bent Ole Ruud
#          University of Bergen (UoB)
#          Dept. of Earth Science (DES)
#          Norway
#
# Ole Meyer, UoB, DES
# December 2, 2003

## Constants:

tape=/dev/nst0          # Must be non-rewinding
block_size=512k
number_of_records=3	# Each shotfile consists of that many records  
first=1
last=200
file_extension=segc
format=%04d		# Filename format, e.g. 0=zeros first, 4=number of digits, d=decimal number
of_name=test.segc
count=1			# Count real number of runs/files on the tape


echo "Reel number: $1"
echo "Is this correct [y/n]?"
read answer
if [ $answer = "y" -o $answer = "Y" ]
then
	echo "OK, creating directory reel-$1"
	mkdir reel-$1
	cd reel-$1

	echo "Rewinding tape ..."
	mt -f $tape rewind

	echo "Copying shot files ...."


	while [ $count -le $last ]; do
   		echo "Run"
   		dd if=$tape of=$of_name ibs=512k count=3

	.segcCheck < $of_name                           

   		count=`expr $count + 1`
	done


	echo "Rewinding tape ..."
	mt -f $tape rewind

	echo "Done!"
else
	echo "Correct mistakes"
fi

exit