view release on metacpan or  search on metacpan

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

package App::SeismicUnixGui::big_streams::immodpg_global_constants;

use Moose;
our $VERSION = '0.0.1';

=head private hash
similar names as the variables in immodpg.for
in the DICTIONARY ~ line 55
and also in moveNzoom.for

loop_limit:	for searching for a locked_file 

=cut

my @format;

$format[0] =  '%-35s%1s%-20s';
$format[1] =  '%-35s%1s%-20s';
$format[2] =  '%-35s%1s%-20s';
$format[3] =  '%-35s%1s%-20s';
$format[4] =  '%-35s%1s%-20s';
$format[5] =  '%-35s%1s%-20s';
$format[6] =  '%-35s%1s%-20s';
$format[7] =  '%-35s%1s%-20s';
$format[8] =  '%-35s%1s%-20s';
$format[9] = $format[8];
$format[10] = '%-35s%1s%-20s';
$format[11] = $format[10];
$format[12] = $format[10];
$format[13] = $format[10];
$format[14] =  '%-35s%1s%-20s';
$format[15] =  '%-35s%1s%-20s';
$format[16] =  '%-35s%1s%-20s';
$format[17] =  '%-35s%1s%-20s';
$format[18] =  '%-35s%1s%-20s';
$format[19] =  '%-35s%1s%-20s';                    

my $var = {
	_Vbot_file							=> 'Vbot', 
	_Vbot_minus_opt						=> 21,
	_Vbot_plus_opt						=> 22,
	_Vbot_upper_layer_file				=> 'Vbot_upper_layer', 	
	_VbotNVtop_lower_layer_plus_opt		=> 62,
    _VbotNVtop_lower_layer_minus_opt	=> 61,	
	_VbotNtop_minus_opt					=> 41,
	_VbotNtop_plus_opt					=> 42,
	_Vincrement_file					=> 'Vincrement',
	_Vincrement_opt						=> 7,
	_Vtop_file							=> 'Vtop',
	_Vtop_lower_layer_file				=> 'Vtop_lower_layer',					
    _Vtop_minus_opt						=> 12,
	_Vtop_plus_opt						=> 13,
    _VbotNtop_factor_file               => 'VbotNtop_factor',  
	_VbotNtop_multiply_opt				=> 16,
	_VtopNVbot_upper_layer_minus_opt   	=> 51,
	_VtopNVbot_upper_layer_plus_opt   	=> 52,
	_Vbot_opt						    => 20,	
	_Vbot_upper_layer_opt		        => 23,
	_Vtop_lower_layer_opt				=> 11,			
	_Vtop_opt							=> 10,	
#	_changeVbotNtop_factor_opt			=> 68,
	_VbotNtop_factor_opt			    => 68,
	_change_default						=> 'no',
	_change_file						=> 'change',
#	_change_layer_number_opt			=> 0,
#	_change_thickness_m_opt				=> 14,
#	_change_thickness_increment_m_opt	=> 15,	
	_clip_file							=> 'clip',
    _clip4plot_opt						=> 9,
    _config_file_format			        => '%-35s%1s%-20s',
    _config_file_format_clip			=> '%-35s%1s%-5.1f',