DOCUMENTATION

SYNOPSIS

 PERL PROGRAM NAME: old_data 
 AUTHOR: Juan Lorenzo
 DATE:  Sept. 18 2015 

 DESCRIPTION: 
 Version: 1.1
 Package used to locate pre-exisitng data sets

USE

NOTES

Examples

SEISMIC UNIX NOTES

CHANGES and their DATES

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

 Import file-name  and directory definitions

 other needed packages

 instantiate packages 
  

subroutine clear

  sets all variable strings to '' 

subroutine cdp

  sets cdp number to consider  

subroutine gather

  sets gather number to consider  

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: velan
      test whether previous velan pick files exist
          textfile_in: ivpicks_old

   for type: Top_mute
      test whether previous mute pick files exist

   for type: iSpectralAnalysis 
      test whether previous spectral analyses picks files exist

   for type: iPick_xt files (general picking of x,t pairs)

 test whether previous top-mute pick files exist

 test whether previous bottom-mute pick files exist

  file name definitions


  $itop_mute_picks      = $PL_SE$DATA_SEISMIC_TXTitop_mute_check_pickfile_.$old_data->{_file_in};

  $itop_mute_par         = $DATA_SEISMIC_TXT.'/'.$itop_mute_par_.$old_data->{_file_in};

# set defaults # Do old mute files exist # that can be applied? $file_existence1 = $false; $file_existence2 = $false;

        ($file_existence1) = $test->does_file_exist(\$itop_mute_picks);
        
        ($file_existence2) = $test->does_file_exist(\$itop_mute_par);
$answers[1]                          = $file_existence1;
$answers[2]                          = $file_existence2;

return $old_data->{_find};

  file name definitions


  $itop_mute_picks      = $DATA_SEISMIC_TXT.'/'.$itop_mute_check_pickfile_.$old_data->{_file_in};

  $itop_mute_par         = $DATA_SEISMIC_TXT.'/'.$itop_mute_par_.$old_data->{_file_in};

# set defaults # Do old mute files exist # that can be applied? $file_existence1 = $false; $file_existence2 = $false;

        ($file_existence1) = $test->does_file_exist(\$itop_mute_picks);
        
        ($file_existence2) = $test->does_file_exist(\$itop_mute_par);
$answers[1]                          = $file_existence1;
$answers[2]                          = $file_existence2;

return $old_data->{_find};

cpanm App::SeismicUnixGui

perl -MCPAN -e shell
install App::SeismicUnixGui