SYNOPSIS

PERL PROGRAM NAME:

AUTHOR: Juan Lorenzo (Perl module only)

DATE:

DESCRIPTION:

Version:

USE

NOTES

Examples

SYNOPSIS

SEISMIC UNIX NOTES SUCOUNTKEY - COUNT the number of unique values for a given KEYword.

 sucountkey < input.su key=[sx,gx,cdp,...]				

 Required parameter:							

 key=			array of SU header keywords being counted	

 Optional parameters:							

 verbose=1		chatty, =0 just print keyword number		

 Example:								

	  suplane | sucountkey key=tracl,tracr,offset			







 Credits: Baoniu Han, bhan@mines.edu, Nov, 2000

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 key

sub verbose

sub get_max_index

max index = number of input variables -1