segy

来自「COOOL：CWP面向对象最优化库（CWP Object Oriented Op」· 代码 · 共 14 行

#!/bin/sh
lag=161 dfile=data xfile=xcor 

set -x

segyhdrs < $dfile hfile=$dfile.hd bfile=$dfile.bin
segywrite < $dfile hfile=$dfile.hd bfile=$dfile.bin tape=$dfile.segy verbose=1
suaddhead < $xfile ns=$lag > $xfile.su
segyhdrs < $xfile.su hfile=$xfile.hd bfile=$xfile.bin
segywrite < $xfile.su hfile=$xfile.hd bfile=$xfile.bin tape=$xfile.segy \
	verbose=1

/bin/rm *.bin *.hd *.su