SeismicUnixプラスsource-receiverデータプラスヘッダー
384 ワード
#!/bin/sh
suaddhead < shot.dat ns=$nt |
sushw key=sx a=$fs b=0 c=$ds j=$nx |
sushw key=gx a=$fg b=$dg c=0 j=$nx |
suchw key1=offset key2=sx key3=gx b=-1 c=1 d=1 |
suchw key1=cdp key2=sx key3=gx b=1 c=1 d=$2*dx |
sushw key=dt a=$dt |
sushw key=scalco a=1 > shot.su