SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUSMGAUSS2 --- SMOOTH a uniformly sampled 2d array of velocities

		using a Gaussian filter specified with correlation 	

	lengths a1 and a2.	



 susmgauss2 < stdin [optional parameters ] > stdout			



 Optional Parameters:							

 a1=0			smoothing parameter in the 1 direction		

 a2=0			smoothing parameter in the 2 direction		



 Notes:								

 Larger a1 and a2 result in a smoother velocity. The velocities are	

 first transformed to slowness and then a Gaussian filter is applied	

 in the wavenumber domain.						



 Input file must be in SU format. The output file is smoothed velocity 







	Credits: 

		CWP: Carlos Pacheco, 2005

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 a1

sub a2

sub get_max_index

max index = number of input variables -1