DOCUMENTATION

SYNOPSIS

PERL PROGRAM NAME:iBottomMutePicks2par.pm
AUTHOR: Juan Lorenzo
DATE: June 12 2017 

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 
June 14 adapted from iTopMutePicks2par.pm

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 bottom 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

  In the old manner:
   	$mkparfile	=  ("mkparfile			\\
		string1=tmute 				\\
		string2=xmute 				\\
		");

establish par file names

TODO if no sorting is ever needed
rm file name from $itemp_bot_mute_picks_sorted_par to itemp_bot_mute_picks

  DEFINE FLOW(S)

 In the old manner (non oops):

	$flow[1] = (" 						\\
		$mkparfile[1] 					\\
		< $mkparfile_inbound[1]				\\
		>$mkparfile_outbound[1]				\\
								\\
		"); 

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