#! /bin/csh

# read SEG-Y standard file and convert to SU native format
  echo " "
  echo "Read SEG-Y file and output SU native format..."
  echo " "
 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 " "
  echo "Extracting SEG-Y trace header words... (ffid, source X, source Y, year, julian day, hour, minute, seconds)"
  echo " "

 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 | \
 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

  echo " "
  echo "Writing shot navigation files to nav directory..."
  echo " "

 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
