/ 
App-SeismicUnixGui-0.87.2
River stage zero No dependents
/ App::SeismicUnixGui::misc::old_data

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};