SUTTOZ - resample from time to depth

suttoz <stdin >stdout [optional parms]

Optional Parameters:
nz= number of depth samples
dz=vmin*dt/2 depth sampling interval (defaults avoids aliasing)
fz=v(ft)*ft/2 first depth sample
t=0.0 times corresponding to interval velocities in v
v=1500.0 interval velocities corresponding to times in v
vfile= binary (non-ascii) file containing velocities v(t)
verbose=1 >0 to print depth sampling information

Notes:
The t and v arrays specify an interval velocity function of time. Linear interpolation and constant extrapolation is used to determine interval velocities at times not specified. Values specified in t must increase monotonically.

Alternatively, interval velocities may be stored in a binary file containing one velocity for every time sample. If vfile is specified, then the t and v arrays are ignored.

Credits:
CWP: Dave Hale

Trace header fields accessed: ns, dt, and delrt
Trace header fields modified: trid, ns, d1, and f1