PERL PROGRAM NAME:iBottomMutePicks2par.pm AUTHOR: Juan Lorenzo DATE: June 12 2017 DESCRIPTION: Purpose: write data pairs to par format for input to sumute
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
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
sets all variable strings to ''
Required file name on which to pick bottom mute values
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
To install App::SeismicUnixGui, copy and paste the appropriate command in to your terminal.
cpanm
cpanm App::SeismicUnixGui
CPAN shell
perl -MCPAN -e shell install App::SeismicUnixGui
For more information on module installation, please visit the detailed CPAN module installation guide.