SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUADDSTATICS - ADD random STATICS on seismic data

suaddstatics required parameters [optional parameters] > stdout
Required parameters:
shift= the static shift will be generated
randomly in the interval [+shift,-shif] (ms)
sources= number of source locations
receivers= number of receiver locations
cmps= number of common mid point locations
maxfold= maximum fold of input data
datafile= name and COMPLETE path of the input file
Optional parameters:
dt=tr.dt time sampling interval (ms)
seed=getpid() seed for random number generator
verbose=0 =1 print useful information
Notes:
Input data should be sorted into cdp gathers.
SUADDSTATICS applies static time shifts in a surface consistent way on
seismic data sets. SUADDSTATICS writes the static time shifts in the
header field TSTAT. To perform the actual shifts the user should use
the program SUSTATIC after SUADDSTATICS. SUADDSTATICS outputs the
corrupted data set to stdout.
Header field used by SUADDSTATICS: cdp, sx, gx, tstat, dt.
Credits: CWP Wences Gouveia, 11/07/94, Colorado School of Mines

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 cmps

sub datafile

sub dt

sub maxfold

sub receivers

sub seed

sub shift

sub sources

sub verbose

sub get_max_index

max index = number of input variables -1