SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUTSQ -- time axis time-squared stretch of seismic traces

 sutsq [optional parameters] <stdin >stdout 			



 Required parameters:						

	none				 			



 Optional parameters:						

       tmin= .1*nt*dt  minimum time sample of interest		

                       (only needed for forward transform)	

       dt= .004       output sample rate			

                       (only needed for inverse transform)	

       flag= 1        1 means forward transform: time to time squared

                     -1 means inverse transform: time squared to time



 Note: The output of the forward transform always starts with	

 time squared equal to zero.  'tmin' is used to avoid aliasing	

 the early times.

	





 Caveats:

 	Amplitudes are not well preserved.



 Trace header fields accessed: ns, dt

 Trace header fields modified: ns, dt

User's notes (Juan Lorenzo) untested

CHANGES and their DATES

Import packages

instantiation of packages

Encapsulated hash of private variables

sub Step

collects switches and assembles bash instructions by adding the program name

sub note

collects switches and assembles bash instructions by adding the program name

sub clear

sub dt

sub flag

sub tmin

sub get_max_index

max index = number of input variables -1