DOCUMENTATION
SYNOPSIS
PERL PROGRAM NAME: iTopMute.pm
AUTHOR: Juan Lorenzo
DATE: Sept. 14 2015
DESCRIPTION:
Version: 1.1
Package used for interactive top mute
USE
NOTES
Examples
SEISMIC UNIX NOTES
CHANGES and their DATES
STEPS
1. define the types of variables you are using
these would be the values you enter into
each of the Seismic Unix programs each of the
Seismic Unix programs
2. build a list or hash with all the possible variable
names you may use and you can even change them
set defaults
VELAN DATA m/s
Import
packages
directory definitions
instantiate
programs
private hash
declare variables types
establish just the locally scoped variables
subroutine clear
sets all variable strings to ''
subroutine gather_header
define which values to use in the xaxis
sub offset_type
define which values to use in the xaxis
sub gather_type
define which family of messages to use
sub iTM_Select_tr_Sumute_top
Select mute points in traces
provide file name
sub iTM_Apply_top_mute
Mute the data using selected parameters
subroutine iPicks2par
convert format of pick files for use later
into "par" format
subroutine iTM_Save_top_mute_picks
save pick files for later use
sub set_message
define the message family (type) to use
also set the gather nuimber (TODO: move option elsewhere)
update gather number for messages
sub iTM_message
instructions
update gather number for messages
sub type
look for old data
Are there old picks to read?
These old picks are of a type e.g. velan or gather
subroutine gather_num
sets gather number to consider
subroutine file_in
Required file name
on which to pick top mute values
subroutine data_scale
Required data plotting scale
subroutine freq
creates the bandpass frequencies to filter data before
conducting amplitude analysis
e.g., "3,6,40,50"
subroutine maximum amplitude to plot
subroutine minumum amplitude to plot
subroutine number_of_tries
required count of the number of attempts
at estimating the velocity
subroutine icp_sorted_2_old_picks
When user wants to recheck the data
this subroutine will allow the user to
recheck using an old sorted file
Juan M. Lorenzo
Jan 10 2010
input file is ivpicks_sorted
output pick file
text file out: ivpicks_old
DEFINE FLOW(S)
RUN FLOW(S)
LOG FLOW(S)TO SCREEN AND FILE