DOCUMENTATION

SYNOPSIS

PERL PROGRAM NAME:iTopMutePicks2par.pm
AUTHOR: Juan Lorenzo
DATE: May 5 2009

DESCRIPTION: 

Purpose: write data pairs to par format for input to sumute 

USE

NOTES

Examples

SEISMIC UNIX NOTES

CHANGES and their DATES

V 1. May 5 2009
V2 for interactive top mute picks
V3 Sept.19 2015 perl oops for use with GUI 

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

instantiate classes

declare variables types
establish just the locally scoped variables

create hash with important variables

Import file-name  and directory definitions

subroutine clear

sets all variable strings to '' 

subroutine file_in

Required file name
on which to pick top mute values

sub type

switches for old data of two different types

 for type: tx or taup

main processing flow
reformats data  

MAKE PARAMETER FILE
CONVERT TEXT FILE TO PAR FILE

establish par file names

TODO if no sorting is ever needed
rm file name from $itemp_top_mute_picks_sorted_par to itemp_top_mute_picks

DEFINE FLOW(S)

RUN FLOW(S)
output copy of picked data points
only occurs after the number of tries
is updated

LOG FLOW(S)TO SCREEN AND FILE