SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SURECIP - sum opposing offsets in prepared data (see below)

surecip <stdin >stdout	 		               	

opt=null

 Sum traces with equal positive and negative offsets (i.e. assume

 reciprocity holds). 						



 Usage:							

	suabshw <data >absdata					

	susort cdp offset <absdata | surecip >sumdata		



 Note that this processing stream can be simply evoked by:	



	recip data sumdata					





 Credits:

	SEP: Shuki Ronen

	CWP: Jack Cohen



 Caveat:

	The assumption is that this operation is not a mainstay processing

	item.  Hence the recommended implemention via the 'recip' shell

	script.  If it becomes a mainstay, then a much faster code can

	quickly drummed up by incorporating portions of suabshw and

	susort.



 Trace header fields accessed: ns

 Trace header fields modified: nhs, tracl, sx, gx

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 opt

sub get_max_index

max index = number of input variables -1