SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (only Perl)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SURAMP - Linearly taper the start and/or end of traces to zero.

 suramp <stdin >stdout [optional parameters]				



 Required parameters:							

 	if dt is not set in header, then dt is mandatory		



 Optional parameters							

	tmin=tr.delrt/1000	end of starting ramp (sec)		

	tmax=(nt-1)*dt		beginning of ending ramp (sec)		

 	dt = (from header)	sampling interval (sec)			



 The taper is a linear ramp from 0 to tmin and/or tmax to the		

 end of the trace.  Default is a no-op!				





 Credits:



	CWP: Jack K. Cohen, Ken Larner 



 Trace header fields accessed: ns, dt, delrt

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 tmax

sub tmin

sub get_max_index

max index = number of input variables -1