view release on metacpan or  search on metacpan

lib/App/SeismicUnixGui/big_streams/iSave_bottom_mute_picks.pm  view on Meta::CPAN

package App::SeismicUnixGui::big_streams::iSave_bottom_mute_picks;

use Moose;
our $VERSION = '0.0.1';
use aliased 'App::SeismicUnixGui::misc::message';
use aliased 'App::SeismicUnixGui::misc::flow';
use aliased 'App::SeismicUnixGui::sunix::shell::cp';
use aliased 'App::SeismicUnixGui::configs::big_streams::Project_config';
use App::SeismicUnixGui::misc::SeismicUnix qw($itemp_bot_mute_picks_sorted_par_ $ibot_mute_par_ 
$ibottom_mute_file_list $suffix_txt );

=head1 DOCUMENTATION

=head2 SYNOPSIS 

 PROGRAM NAME:iSave_bottom_mute_picks.pm
 AUTHOR:  Juan Lorenzo
 DATE:    Nue 12 2017  
 Version: 3.0 

 DESCRIPTION: Originally to Save final Top Mute of Data

=head2 USE

=head4 

 Examples

=head2 SEISMIC UNIX NOTES

=head4 CHANGES and their DATES

 V1 May 5 2009 
 V2. change mute parameters to top mute parameters
 Aug 12, 2011
 V3.0 September 2015 :
          updated to oop
          introduced Tk widgets
          Made all event-driven
 June 12 2017 adapted from iSave_top_mute_picks.pm

=head2 STEPS

  use the local library of the user
  bring is user variables from a local file
  create instances of the needed subroutines

=cut

=head2

 instantiate classes

=cut

my $log     = message->new();
my $run     = flow->new();
my $cp      = cp->new();
my $Project = Project_config->new();

=head2

 declare variables types
 establish just the locally scoped variables

=cut

my ( @flow, @cp, @items );

=head2

 create hash with important variables

=cut

my $iSave_bot_mute_picks = {
    _gather_num    => '',
    _gather_type   => '',
    _gather_header => '',
    _file_in       => '',
    _inbound       => '',
    _outbound      => ''
};

=head2

 Import directory definitions

=cut 

my ($DATA_SEISMIC_TXT) = $Project->DATA_SEISMIC_TXT();

=head2 subroutine clear

  sets all variable strings to '' 

=cut