SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUHTMATH - do unary arithmetic operation on segy traces with

	     headers values					



 suhtmath <stdin >stdout				



 Required parameters:						

	none							



 Optional parameter:						

	key=tracl	header word to use			

	op=nop		operation flag				

			nop   : no operation			

			add   : add header to trace		

			mult  : multiply trace with header	

			div   : divide trace by header		



	scale=1.0	scalar multiplier for header value	

	const=0.0	additive constant for header value	



 Operation order:						",      



 op=add:	out(t) = in(t) + (scale * key + const)		

 op=mult:	out(t) = in(t) * (scale * key + const)		

 op=div:	out(t) = in(t) / (scale * key + const)		



 Credits:

	Matthias Imhof, Virginia Tech, Fri Dec 27 09:17:29 EST 2002

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 const

sub key

sub op

sub scale

sub get_max_index

max index = number of input variables -1