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.	

 Note that t and v are given  as arrays of floats separated by commas,  
 for example:								
 t=0.0,0.01,.2,... v=1500.0,1720.0,1833.5,... with the number of t values
 equaling the number of v values.					

 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.					

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


 Credits:
	CWP: Dave Hale