view release on metacpan or  search on metacpan

pm/Math/GSL/Eigen.pm.2.8  view on Meta::CPAN

############# Class : Math::GSL::Eigen::gsl_eigen_hermv_workspace ##############

package Math::GSL::Eigen::gsl_eigen_hermv_workspace;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Eigen );
%OWNER = ();
%ITERATORS = ();
*swig_size_get = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_size_get;
*swig_size_set = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_size_set;
*swig_d_get = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_d_get;
*swig_d_set = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_d_set;
*swig_sd_get = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_sd_get;
*swig_sd_set = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_sd_set;
*swig_tau_get = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_tau_get;
*swig_tau_set = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_tau_set;
*swig_gc_get = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gc_get;
*swig_gc_set = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gc_set;
*swig_gs_get = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gs_get;
*swig_gs_set = *Math::GSL::Eigenc::gsl_eigen_hermv_workspace_gs_set;
sub new {
    my $pkg = shift;
    my $self = Math::GSL::Eigenc::new_gsl_eigen_hermv_workspace(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::GSL::Eigenc::delete_gsl_eigen_hermv_workspace($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
}

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::GSL::Eigen::gsl_eigen_francis_workspace ##############

package Math::GSL::Eigen::gsl_eigen_francis_workspace;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Eigen );
%OWNER = ();
%ITERATORS = ();
*swig_size_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_size_get;
*swig_size_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_size_set;
*swig_max_iterations_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_max_iterations_get;
*swig_max_iterations_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_max_iterations_set;
*swig_n_iter_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_iter_get;
*swig_n_iter_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_iter_set;
*swig_n_evals_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_evals_get;
*swig_n_evals_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_n_evals_set;
*swig_compute_t_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_compute_t_get;
*swig_compute_t_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_compute_t_set;
*swig_H_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_H_get;
*swig_H_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_H_set;
*swig_Z_get = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_Z_get;
*swig_Z_set = *Math::GSL::Eigenc::gsl_eigen_francis_workspace_Z_set;
sub new {
    my $pkg = shift;
    my $self = Math::GSL::Eigenc::new_gsl_eigen_francis_workspace(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::GSL::Eigenc::delete_gsl_eigen_francis_workspace($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
}

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::GSL::Eigen::gsl_eigen_nonsymm_workspace ##############

package Math::GSL::Eigen::gsl_eigen_nonsymm_workspace;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Eigen );
%OWNER = ();
%ITERATORS = ();
*swig_size_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_size_get;
*swig_size_set = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_size_set;
*swig_diag_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_diag_get;
*swig_diag_set = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_diag_set;
*swig_tau_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_tau_get;
*swig_tau_set = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_tau_set;
*swig_Z_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_Z_get;
*swig_Z_set = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_Z_set;
*swig_do_balance_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_do_balance_get;
*swig_do_balance_set = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_do_balance_set;
*swig_n_evals_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_n_evals_get;
*swig_n_evals_set = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_n_evals_set;
*swig_francis_workspace_p_get = *Math::GSL::Eigenc::gsl_eigen_nonsymm_workspace_francis_workspace_p_get;

pm/Math/GSL/Eigen.pm.2.8  view on Meta::CPAN

    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::GSL::Eigen::gsl_eigen_genhermv_workspace ##############

package Math::GSL::Eigen::gsl_eigen_genhermv_workspace;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Eigen );
%OWNER = ();
%ITERATORS = ();
*swig_size_get = *Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_size_get;
*swig_size_set = *Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_size_set;
*swig_hermv_workspace_p_get = *Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_hermv_workspace_p_get;
*swig_hermv_workspace_p_set = *Math::GSL::Eigenc::gsl_eigen_genhermv_workspace_hermv_workspace_p_set;
sub new {
    my $pkg = shift;
    my $self = Math::GSL::Eigenc::new_gsl_eigen_genhermv_workspace(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::GSL::Eigenc::delete_gsl_eigen_genhermv_workspace($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
}

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::GSL::Eigen::gsl_eigen_gen_workspace ##############

package Math::GSL::Eigen::gsl_eigen_gen_workspace;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);
@ISA = qw( Math::GSL::Eigen );
%OWNER = ();
%ITERATORS = ();
*swig_size_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_size_get;
*swig_size_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_size_set;
*swig_work_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_work_get;
*swig_work_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_work_set;
*swig_n_evals_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_evals_get;
*swig_n_evals_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_evals_set;
*swig_max_iterations_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_max_iterations_get;
*swig_max_iterations_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_max_iterations_set;
*swig_n_iter_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_iter_get;
*swig_n_iter_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_n_iter_set;
*swig_eshift_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_eshift_get;
*swig_eshift_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_eshift_set;
*swig_needtop_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_needtop_get;
*swig_needtop_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_needtop_set;
*swig_atol_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_atol_get;
*swig_atol_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_atol_set;
*swig_btol_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_btol_get;
*swig_btol_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_btol_set;
*swig_ascale_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_ascale_get;
*swig_ascale_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_ascale_set;
*swig_bscale_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_bscale_get;
*swig_bscale_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_bscale_set;
*swig_H_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_H_get;
*swig_H_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_H_set;
*swig_R_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_R_get;
*swig_R_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_R_set;
*swig_compute_s_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_s_get;
*swig_compute_s_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_s_set;
*swig_compute_t_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_t_get;
*swig_compute_t_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_compute_t_set;
*swig_Q_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_Q_get;
*swig_Q_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_Q_set;
*swig_Z_get = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_Z_get;
*swig_Z_set = *Math::GSL::Eigenc::gsl_eigen_gen_workspace_Z_set;
sub new {
    my $pkg = shift;
    my $self = Math::GSL::Eigenc::new_gsl_eigen_gen_workspace(@_);
    bless $self, $pkg if defined($self);
}

sub DESTROY {
    return unless $_[0]->isa('HASH');
    my $self = tied(%{$_[0]});
    return unless defined $self;
    delete $ITERATORS{$self};
    if (exists $OWNER{$self}) {
        Math::GSL::Eigenc::delete_gsl_eigen_gen_workspace($self);
        delete $OWNER{$self};
    }
}

sub DISOWN {
    my $self = shift;
    my $ptr = tied(%$self);
    delete $OWNER{$ptr};
}

sub ACQUIRE {
    my $self = shift;
    my $ptr = tied(%$self);
    $OWNER{$ptr} = 1;
}


############# Class : Math::GSL::Eigen::gsl_eigen_genv_workspace ##############

package Math::GSL::Eigen::gsl_eigen_genv_workspace;
use vars qw(@ISA %OWNER %ITERATORS %BLESSEDMEMBERS);