SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUFWATRIM - FX domain Alpha TRIM

  sufwatrim  <stdin > stdout [optional parameters]			



 Required parameters:							

 key=key1,key2,..	Header words defining mixing dimesnion		

 dx=d1,d2,..		Distance units for each header word		

 Optional parameters:							

 keyg=ep		Header word indicating the start of gather	

 vf=0			=1 Do a frequency dependent mix			

 vmin=5000		Velocity of the reflection slope		

			than should not be attenuated			

 Notes:		 						

 Trace with the header word mark set to one will be 			

 the output trace 							





 Credits: Potash Corporation of Saskatchewan, Balasz Nemeth

 Code given to CWP in 2008

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 dx

sub key

sub keyg

sub vf

sub vmin

sub get_max_index

max index = number of input variables -1