The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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