SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUJITTER - Add random time shifts to seismic traces

     sujitter <stdin >stdout  [optional parameters]	 		



 Required parameters:							

	none								

 Optional Parameters:							

 	seed=from_clock    	random number seed (integer)            

	min=1 			minimum random time shift (samples)	

	max=1 			maximum random time shift (samples)	

	pon=1 			shift can be positive or negative	

				=0 shift is positive only		

	fldr=0 			each trace has new shift		

				=1 new shift when fldr header field changes

 Notes:								

 Useful for simulating random statics. See also:  suaddstatics		





 Credits:

	U of Houston: Chris Liner 

	UH:  Chris added fldr, min, pon options 12/10/08

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 fldr

sub max

sub min

sub pon

sub seed

sub get_max_index

max index = number of input variables -1