#! /bin/csh

# read SEG-Y standard file and convert to SU native format
  echo "Read SEG-Y file and output SU native format..."
segyread tape=../segy/$1.sgy hfile=ebcdic$1 verbose=1 vblock=1000 conv=1 endian=0 | \
segyclean  > $1.su

# extract SEG-Y trace header values (ffid, source x, source y, year, 
# julian day, hour, minute, second, source depth, source elevation)
  echo "Extracting SEG-Y trace header words (ffid, source X, source Y, year, julian day, hour, minute, seconds"

sugethw key=fldr,sx,sy,year,day,hour,minute,sec output=ascii < $1.su | grep fldr | sed 's/=/	/g' | sed 's/ //g' | sort -um +3 -4 | \

#grep fldr | sed 's/=/	/g' | sed 's/ //g' | \

awk '{FS="	"} {OFS="	"} {printf "%5s	%6s	%10s	%10s	%4s	%3s:%2s:%2s:%2s\n", line,$2,$4,$6,$8,$10,$12,$14,$16} ' line=$1 - > ../nav/$1.txt

surange < $1.su | grep traces | awk '{printf "%10s %5s %6s\n", name,$1,$2}' name='FILE: '$1 - >> ../nav/soleol.txt

sugethw key=fldr,day,hour,minute,sec,sx,sy output=ascii < $1.su| grep fldr | sed 's/fldr/SHOT/' | sed 's/sy/UTM_Y/' | sed 's/sx/UTM_X/' | sed 's/ //g' | sed 's/  / /g' | head -1 | awk '{FS=" "} {OFS=" "} {printf "%13s %7s %10s %7s %7s %10s %7s\n", \
sof,line,$1,$2,$3,$4,$5,$6,$7} ' line=$1 sof='Start of file:' - >> ../nav/soleol.txt

sugethw key=fldr,day,hour,minute,sec,sx,sy output=ascii < $1.su| grep fldr | sed 's/fldr/SHOT/' | sed 's/sy/UTM_Y/' | sed 's/sx/UTM_X/' | sed 's/ //g' | sed 's/  / /g' | tail -1 | awk '{FS=" "} {OFS=" "} {printf "%13s %7s %10s %7s %7s %10s %7s\n", \
 eof,line,$1,$2,$3,$4,$5,$6,$7} ' line=$1 eof='__End of file:' - >> ../nav/soleol.txt






