DOCUMENTATION

SYNOPSIS

PERL PERL PROGRAM NAME: immodpg_config.pm 
AUTHOR: Juan Lorenzo
DATE: Feb 24 2020
DESCRIPTION: interactive raytraced modeling
of first arrivals

USED 

BASED ON:PL_SEISMIC
mmodpg by Emilio Vera
    
  
Needs: Simple (ASCII) local configuration 
     file is immodpg.config

EXAMPLE

contains all the configuration variables 

base_file_name = file (su format by default_path) pre_digitized_XT_pairs = no data_traces = yes clip = 10.000000 min_t_s = 0.000000 min_x_m = 0.000000 thickness_increment_m = 0.1000 source_depth_m = 0. receiver_depth_m = 0. reducing_vel_mps = 0.000 plot_min_x_m = 0. plot_max_x_m = 10. plot_min_t_s = 0.000 plot_max_t_s = .1 previous_model = yes new_model = no layer = 1

define private hash

assign values to local variables

Create the configuration file if it does not exist,using the default configuration file

Create a model test file as text

Create a basic model.txt file if it does not exist in either or both the hidden and invisible working directories. copying over an example simple test file

get_values control for string quotes

Example LOCAL VARIABLES FOR THIS PROJECT

sub get_max_index

max index = number of input variables -1