tools_math Module

Uses

- class_psblas
- class_vector
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Variables

it_convergence_ it_counter_ it_time_ pi

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	it_convergence_	=	2
integer,	public,	parameter	::	it_counter_	=	3
integer,	public,	parameter	::	it_time_	=	1
real(kind=psb_dpk_),	public,	parameter	::	pi	=	3.14159265358979323846264338327950288d0

Interfaces

public interface build_prec

private interface psb_build_prec()

Arguments
None

interface

public module subroutine cart_to_polar(x, y, rho, theta, square)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	y
real(kind=psb_dpk_),	intent(out)			::	rho
real(kind=psb_dpk_),	intent(out)			::	theta
logical,	intent(in),	optional		::	square

public interface factorize

private interface lu_fact()

Arguments
None
private interface cholesky_fact_m()

Arguments
None
private interface choloesky_fact_v()

Arguments
None

public interface lin_interp

private interface lin_interp_s()

Arguments
None
private interface lin_interp_v()

Arguments
None

public interface pwl_deriv

private interface pwl_deriv_x_s()

Arguments
None
private interface pwl_deriv_x_v()

Arguments
None
private interface pwl_deriv_x_vec()

Arguments
None

public interface pwl_interp

private interface pwl_interp_dx_s()

Arguments
None
private interface pwl_interp_dx_v()

Arguments
None
private interface pwl_interp_x_s()

Arguments
None
private interface pwl_interp_x_v()

Arguments
None
private interface pwl_interp_x_vec()

Arguments
None

interface

public module subroutine pwl_nearest(x, x_data, i1, i2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	x_data(:)
integer,	intent(out)			::	i1
integer,	intent(out)			::	i2

public interface solve_sys

private interface lu_solve()

Arguments
None
private interface cholesky_solve_m()

Arguments
None
private interface cholesky_solve_v()

Arguments
None
private interface psb_solve_sys()

Arguments
None

public interface sort

private interface isort()

Arguments
None

interface

private module subroutine cholesky_fact_m(a)

Arguments

Type Intent Optional Attributes Name

real(kind=psb_dpk_), intent(inout) :: a(:,:)

interface

private module subroutine cholesky_solve_m(a, b)

Arguments

Type Intent Optional Attributes Name

real(kind=psb_dpk_), intent(in) :: a(:,:)

real(kind=psb_dpk_), intent(inout) :: b(:)

interface

private module subroutine cholesky_solve_v(a, b)

Arguments

Type Intent Optional Attributes Name

real(kind=psb_dpk_), intent(in) :: a(:)

real(kind=psb_dpk_), intent(inout) :: b(:)

interface

private module subroutine choloesky_fact_v(a)

Arguments

Type Intent Optional Attributes Name

real(kind=psb_dpk_), intent(inout) :: a(:)

interface

private module subroutine isort(ivet)

Arguments

Type Intent Optional Attributes Name

integer, intent(inout) :: ivet(:)

interface

private module function lin_interp_s(f1, f2, fac)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(in)			::	f1
real(kind=psb_dpk_),	intent(in)			::	f2
real(kind=psb_dpk_),	intent(in)			::	fac

Return Value real(kind=psb_dpk_)

interface

private module function lin_interp_v(f1, f2, fac)

Arguments

Type	Intent	Optional	Attributes		Name
type(vector),	intent(in)			::	f1
type(vector),	intent(in)			::	f2
real(kind=psb_dpk_),	intent(in)			::	fac

Return Value type(vector)

interface

private module subroutine lu_fact(n, a, ipiv, info)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real(kind=psb_dpk_),	intent(inout)			::	a(n,n)
integer,	intent(out)			::	ipiv(n)
integer,	intent(out)			::	info

interface

private module subroutine lu_solve(n, a, ipiv, b, info)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n
real(kind=psb_dpk_),	intent(in)			::	a(n,n)
integer,	intent(in)			::	ipiv(n)
real(kind=psb_dpk_),	intent(inout)			::	b(n)
integer,	intent(out)			::	info

interface

private subroutine psb_build_prec(cprec, nlev, cmethod, a, desc_a, prec)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	cprec
integer,	intent(in)			::	nlev
character(len=*),	intent(in)			::	cmethod
type(psb_dspmat_type),	intent(in)			::	a
type(psb_desc_type),	intent(inout)			::	desc_a
type(psb_dprec_type),	intent(inout)			::	prec

interface

private module subroutine psb_solve_sys(a, prec, b, x, desc, cmethod, eps, itmax, iter, err)

Arguments

Type	Intent	Optional	Attributes		Name
type(psb_dspmat_type),	intent(in)			::	a
type(psb_dprec_type),	intent(inout)			::	prec
real(kind=psb_dpk_),	intent(in)			::	b(:)
real(kind=psb_dpk_),	intent(inout)			::	x(:)
type(psb_desc_type),	intent(in)			::	desc
character(len=*),	intent(in)			::	cmethod
real(kind=psb_dpk_),	intent(in)			::	eps
integer,	intent(in)			::	itmax
integer,	intent(out)			::	iter
real(kind=psb_dpk_),	intent(out)			::	err

interface

private module subroutine pwl_deriv_x_s(dydx, x, y_data, x_data)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(out)			::	dydx
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	y_data(:)
real(kind=psb_dpk_),	intent(in)			::	x_data(:)

interface

private module subroutine pwl_deriv_x_v(dydx, x, y_data, x_data)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(out)			::	dydx(:)
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	y_data(:,:)
real(kind=psb_dpk_),	intent(in)			::	x_data(:)

interface

private module subroutine pwl_deriv_x_vec(dydx, x, y_data, x_data)

Arguments

Type	Intent	Optional	Attributes		Name
type(vector),	intent(out)			::	dydx
real(kind=psb_dpk_),	intent(in)			::	x
type(vector),	intent(in)			::	y_data(:)
real(kind=psb_dpk_),	intent(in)			::	x_data(:)

interface

private module subroutine pwl_interp_dx_s(y, x, y_data, xmin, dx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(out)			::	y
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	y_data(:)
real(kind=psb_dpk_),	intent(in)			::	xmin
real(kind=psb_dpk_),	intent(in)			::	dx

interface

private module subroutine pwl_interp_dx_v(y, x, y_data, xmin, dx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(out)			::	y(:)
real(kind=psb_dpk_),	intent(in)			::	x(:)
real(kind=psb_dpk_),	intent(in)			::	y_data(:)
real(kind=psb_dpk_),	intent(in)			::	xmin
real(kind=psb_dpk_),	intent(in)			::	dx

interface

private module subroutine pwl_interp_x_s(y, x, y_data, x_data)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(out)			::	y
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	y_data(:)
real(kind=psb_dpk_),	intent(in)			::	x_data(:)

interface

private module subroutine pwl_interp_x_v(y, x, y_data, x_data)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=psb_dpk_),	intent(out)			::	y(:)
real(kind=psb_dpk_),	intent(in)			::	x
real(kind=psb_dpk_),	intent(in)			::	y_data(:,:)
real(kind=psb_dpk_),	intent(in)			::	x_data(:)

interface

private module subroutine pwl_interp_x_vec(y, x, y_data, x_data)

Arguments

Type	Intent	Optional	Attributes		Name
type(vector),	intent(out)			::	y
real(kind=psb_dpk_),	intent(in)			::	x
type(vector),	intent(in)			::	y_data(:)
real(kind=psb_dpk_),	intent(in)			::	x_data(:)