SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUIMPEDANCE - Convert reflection coefficients to impedances.

 suimpedance <stdin >stdout [optional parameters]		



 Optional Parameters:					  	

 v0=1500.	Velocity at first sample (m/sec)		

 rho0=1.0e6	Density at first sample  (g/m^3)		



 Notes:							

 Implements recursion [1-R(k)]Z(k) = [1+R(k)]Z(k-1).		

 The input traces are assumed to be reflectivities, and thus are

 expected to have amplitude values between -1.0 and 1.0.	





 Credits:

	SEP: Stew Levin



 Trace header fields accessed: ns

 

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 rho0

sub v0

sub get_max_index

max index = number of input variables -1