view release on metacpan or  search on metacpan

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

=cut

sub get_max_index {
	my ($self) = @_;

	my $max_index = 14;

	return ($max_index);
}

=head2 sub update_configuration_files

	saves the configuration file to:
		./L_SU/configuration/active/Project.config
	saves the configuration file to:
		 ./L_SU/configuration/Project_name/Project.config

=cut

sub update_configuration_files {
	my ($self) = @_;

	my $home_directory;

	use Shell qw(echo);

	$home_directory = ` echo \$HOME`;
	chomp $home_directory;

	my $HOME = $home_directory;

lib/App/SeismicUnixGui/sunix/statsMath/suinterp.pm  view on Meta::CPAN

          $suinterp->{_note} . ' tmpdir=' . $suinterp->{_tmpdir};
        $suinterp->{_Step} =
          $suinterp->{_Step} . ' tmpdir=' . $suinterp->{_tmpdir};

    }
    else {
        print("suinterp, tmpdir, missing tmpdir,\n");
    }
}

=head2 sub update_num_traces

 calculate if we know the original trace separation 
 .e.g. 2 m or 2 feet
 input the original trace separation
 return the update trace separation
 estimate the new trace separation after interpolation
 confirm that interpolation parameters exist

=cut

sub update_num_traces {

    my ( $variable, $old_num_traces ) = @_;

    if ( defined $old_num_traces
        && $old_num_traces ne $empty_string )
    {
        $suinterp->{_old_num_traces} = $old_num_traces;

        if ( defined $suinterp->{_ninterp}
            && $suinterp->{_ninterp} ne $empty_string )