BROYDEN_ROUTINES – SciFortran

Uses

- BROYDEN_FUNC_INTERFACE
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.

Used by

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.

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	npar_arth	=	16
integer,	public,	parameter	::	npar2_arth	=	8
procedure(broydn_func),	public,	pointer	::	funcv

Functions

public function get_diag(mat) result(get_diag_dv)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:,:)	::	mat

Return Value real(kind=8), dimension(size(mat,1))

public function assert_eq2(n1, n2, string)

Arguments

Type	Intent		Name
integer,	intent(in)	::	n1
integer,	intent(in)	::	n2
character(len=*),	intent(in)	::	string

Return Value integer

public function assert_eq4(n1, n2, n3, n4, string)

Arguments

Type	Intent		Name
integer,	intent(in)	::	n1
integer,	intent(in)	::	n2
integer,	intent(in)	::	n3
integer,	intent(in)	::	n4
character(len=*),	intent(in)	::	string

Return Value integer

public function assert_eqn(nn, string)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:)	::	nn
character(len=*),	intent(in)			::	string

Return Value integer

public function lower_triangle(j, k, extra)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	j
integer,	intent(in)		::	k
integer,	intent(in),	optional	::	extra

Return Value logical, dimension(j,k)

public function outerdiff(a, b) result(outerdiff_i)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		dimension(:)	::	a
integer,	intent(in),		dimension(:)	::	b

Return Value integer, dimension(size(a),size(b))

public function outerprod(a, b) result(outerprod_d)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:)	::	a
real(kind=8),	intent(in),		dimension(:)	::	b

Return Value real(kind=8), dimension(size(a),size(b))

public function vabs(v)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:)	::	v

Return Value real(kind=8)

public function ifirstloc(mask)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(in),		dimension(:)	::	mask

Return Value integer

Subroutines

public subroutine fdjac(x, fvec, df)

Arguments

Type	Intent	Attributes		Name
real(kind=8),	intent(inout),	dimension(:)	::	x
real(kind=8),	intent(in),	dimension(:)	::	fvec
real(kind=8),	intent(out),	dimension(:,:)	::	df

public subroutine lnsrch(xold, fold, g, p, x, f, stpmax, check, func)

Arguments

Type

Intent

Optional

Attributes

Name

real(kind=8),

intent(in),

dimension(:)

xold

real(kind=8),

intent(in)

fold

real(kind=8),

intent(in),

dimension(:)

real(kind=8),

intent(inout),

dimension(:)

real(kind=8),

intent(out),

dimension(:)

real(kind=8),

intent(out)

real(kind=8),

intent(in)

stpmax

logical,

intent(out)

check

public function func(x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:)	::	x

Return Value real(kind=8)

public subroutine qrdcmp(a, c, d, sing)

Arguments

Type	Intent	Attributes		Name
real(kind=8),	intent(inout),	dimension(:,:)	::	a
real(kind=8),	intent(out),	dimension(:)	::	c
real(kind=8),	intent(out),	dimension(:)	::	d
logical,	intent(out)		::	sing

public subroutine qrupdt(r, qt, u, v)

Arguments

Type	Intent	Attributes		Name
real(kind=8),	intent(inout),	dimension(:,:)	::	r
real(kind=8),	intent(inout),	dimension(:,:)	::	qt
real(kind=8),	intent(inout),	dimension(:)	::	u
real(kind=8),	intent(in),	dimension(:)	::	v

public subroutine rsolv(a, d, b)

Arguments

Type	Intent	Attributes		Name
real(kind=8),	intent(in),	dimension(:,:)	::	a
real(kind=8),	intent(in),	dimension(:)	::	d
real(kind=8),	intent(inout),	dimension(:)	::	b

public subroutine put_diag(diagv, mat)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in),		dimension(:)	::	diagv
real(kind=8),	intent(inout),		dimension(:,:)	::	mat

public subroutine unit_matrix(mat)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(out),		dimension(:,:)	::	mat

BROYDEN_ROUTINES Module

Contents

Variables

Functions

Subroutines

Uses

Used by

Variables

Functions

public function get_diag(mat) result(get_diag_dv)

Arguments

Return Value real(kind=8), dimension(size(mat,1))

public function assert_eq2(n1, n2, string)

Arguments

Return Value integer

public function assert_eq4(n1, n2, n3, n4, string)

Arguments

Return Value integer

public function assert_eqn(nn, string)

Arguments

Return Value integer

public function lower_triangle(j, k, extra)

Arguments

Return Value logical, dimension(j,k)

public function outerdiff(a, b) result(outerdiff_i)

Arguments

Return Value integer, dimension(size(a),size(b))

public function outerprod(a, b) result(outerprod_d)

Arguments

Return Value real(kind=8), dimension(size(a),size(b))

public function vabs(v)

Arguments

Return Value real(kind=8)

public function ifirstloc(mask)

Arguments

Return Value integer

Subroutines

public subroutine fdjac(x, fvec, df)

Arguments

public subroutine lnsrch(xold, fold, g, p, x, f, stpmax, check, func)

Arguments

public function func(x)

Arguments

Return Value real(kind=8)

public subroutine qrdcmp(a, c, d, sing)

Arguments

public subroutine qrupdt(r, qt, u, v)

Arguments

public subroutine rsolv(a, d, b)

Arguments

public subroutine put_diag(diagv, mat)

Arguments

public subroutine unit_matrix(mat)

Arguments