SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUGROLL - Ground roll supression using Karhunen-Loeve transform

    sugroll <infile >outfile  [optional parameters]                 	



 Optional Parameters:                                                  

 dt=tr.dt (from header) 	time sampling interval (secs)           

 nx=ntr   (counted from data)	number of horizontal samples (traces)	

 sb=0      1 for the graund-roll                                       

 verbose=0	verbose = 1 echoes information			

 nrot=3        the principal components for the m largest eigenvalues 

 tmpdir= 	 if non-empty, use the value as a directory path

		 prefix for storing temporary files; else if the

	         the CWP_TMPDIR environment variable is set use	

	         its value for the path; else use tmpfile()	



 Notes:                                                                

 The method developed here is to extract the ground-roll from the	

 common-shot gathers using Karhunen-Loeve transform, and then to substract  

 it from the original data. The advantage is the ground-roll is suppresed  

 with negligible distortion of the signal.	







 Credits: BRGM: Adnand Bitri, 1999.



 Reference:       

    Xuewei Liu, F., 1999, Ground roll supresion using the Karhunen-Loeve transform 

         Geophysics vol. 64 No. 2 pp 564-566



 Trace header fields accessed: ns, dt

 Trace header fields modified: 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 nrot

sub nx

sub sb

sub tmpdir

sub verbose

sub get_max_index

max index = number of input variables -1