lu_implementation Submodule

Uses

- Ancestors:
- tools_math
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

Subroutines

lu_fact_2 lu_fact_3 lu_fact_4

Module Procedures

lu_fact lu_solve

Subroutines

subroutine lu_fact_2(a, ipiv, info)

Arguments

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

subroutine lu_fact_3(a, ipiv, info)

Arguments

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

subroutine lu_fact_4(a, ipiv, info)

Arguments

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

Module Procedures

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

Description: Adapted from LAPACK and unrolled for small sizes.

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

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

Solve a system Ax=b where A has already been factored. Adapted from LAPACK, this is supposed to be called with small sizes (4 or thereabout)

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