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 )

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

            $suinterp->{_note}
          . ' updated_num_traces='
          . $suinterp->{_update_num_traces};
        print(
            "updated number of traces is $suinterp->{_update_num_traces}\n\n");

        return $suinterp->{_update_num_traces};
    }
}

=head2 sub update_trace_separation

 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

 When ninterp=1 
 and interpolation factor=1
	print ("interpolated trace separation is $suinterp->{_update_trace_separation}\n\n");
	print ("interpolation factor  is $suinterp->{_interpolation_factor}\n\n");

=cut

sub update_trace_separation {

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

    if ( defined $old_trace_separation
        && $old_trace_separation ne $empty_string )
    {

        $suinterp->{_old_trace_separation} = $old_trace_separation;

        if ( defined $suinterp->{_ninterp}