SUSHAPE - Wiener shaping filter

sushape <stdin >stdout d= [optional parameters]

Required parameters:
w=vector of input wavelet to be shaped
d=vector of desired output wavelet
dt=tr.dt (if dt header field is not set, then dt is a mandatory

Optional parameters:
nshape=trace length of shaping filter
pnoise=0.001 relative additive noise level
showshaper=0 =1 to show shaping filter

To get the shaping filters into an ascii file:
... | sushape ... showwshaper=1 2>file | ... (sh or ksh)
(... | sushape ... showshaper=1 | ...) >&file (csh)


Credits:
CWP: Jack K. Cohen

Trace header fields accessed: ns, dt