SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUHROT - Horizontal ROTation of three-component data

 suhrot <stdin >stdout [optional parameters]				



 Required parameters:							

 none									



 Optional parameters:							

 angle=rad	unit of angles, choose "rad", "deg", or "gon

 inv=0		1 = inverse rotation (counter-clockwise)		

 verbose=0	1 = echo angle for each 3-C station			



 a=...		array of user-supplied rotation angles			

 x=0.0,...	array of corresponding header value(s)			

 key=tracf	header word defining 3-C station ("x")		



 ... or input angles from files:					

 n=0		 number of x and a values in input files		

 xfile=...   file containing the x values as specified by the		

 				"key" parameter			

 afile=...   file containing the a values				



 Notes:								

 Three adjacent traces are considered as one three-component		

 dataset.								

 By default, the data will be rotated from the Z-North-East (Z,N,E)	

 coordinate system into Z-Radial-Transverse (Z,R,T).			



	If one of the parameters "a=" or "afile=" is set, the data	

	are rotated by these user-supplied angles. Specified x values	

	must be monotonically increasing or decreasing, and afile and	

	xfile are files of binary (C-style) floats.			





 

 Author: Nils Maercklin,

		 Geophysics, Kiel University, Germany, 1999.





 Trace header fields accessed: ns, sx, sy, gx, gy, key=keyword

 Trace header fields modified: trid
 

User's notes (Juan Lorenzo)

Clockwise rotation for a left-handed system (ZNE): inv=0 and negative angles or inv=1 and positive angles

Two simple demos exist for suhrot -- 9.15.21

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 a

sub afile

sub angle

sub inv

sub key

sub n

sub verbose

sub x

sub xfile

sub get_max_index

max index = number of input variables -1