lbfgsb_linpack_module Module

LINPACK support routines for LBFGSB. These have been refactored into modern Fortran.

Uses

- lbfgsb_blas_module
- lbfgsb_kinds_module
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.

Subroutines

public subroutine dpofa(a, lda, n, info)

dpofa factors a real symmetric positive definite matrix.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(inout)			::	a(lda,*)	Dimension `(lda, n)`: Read more…
integer,	intent(in)			::	lda	the leading dimension of the array `a`.
integer,	intent(in)			::	n	the order of the matrix a.
integer,	intent(out)			::	info	Read more…

public subroutine dtrsl(t, ldt, n, b, job, info)

dtrsl solves systems of the form

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	t(ldt,*)	t contains the matrix of the system. the zero elements of the matrix are not referenced, and the corresponding elements of the array can be used to store other information.
integer,	intent(in)			::	ldt	the leading dimension of the array t.
integer,	intent(in)			::	n	the order of the system.
real(kind=wp),	intent(inout)			::	b(*)	On entry: the right hand side of the system. On return: the solution, if info == 0. otherwise b is unaltered.
integer,	intent(in)			::	job	job specifies what kind of system is to be solved. if job is: Read more…
integer,	intent(out)			::	info	info contains zero if the system is nonsingular. otherwise info contains the index of the first zero diagonal element of t.