SeismicUnixプラスsource-receiverデータプラスヘッダー


#!/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