#! /bin/sh

# read SEG-Y standard file and convert to SU native format
segyread tape=/seismic/Boomer/elicssegy/$1.tra verbose=1 vblock=1000 conv=1 endian=0 | \
segyclean | \
#suchw key1=tracf key2=tracf a=1 | \
suwind key=tracf min=1 max=1 > $1.su
# enable the 2 lines above to renumber traces and extract channel one

# extract SEG-Y trace header values (ffid, source x, source y, year, 
# julian day, hour, minute, second, source depth, source elevation)

sugethw key=fldr,sx,sy,year,day,hour,minute,sec output=ascii < $1.su| \

grep fldr | sed 's/=/	/g' | sed 's/ //g' | \
#grep fldr | sed 's/=/	/g' | sed 's/ //g' | sort -um +3 -4 | \

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 %10s %10s\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 %10s %10s\n", \
 eof,line,$1,$2,$3,$4,$5,$6,$7} ' line=$1 eof='__End of file:' - >> ../nav/soleol.txt