HOMPACK90 Module

Uses

- REAL_PRECISION
- HOMPACK90_GLOBAL
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.

Subroutines

public subroutine FIXPDF(N, Y, IFLAG, ARCTOL, EPS, TRACE, A, NDIMA, NFE, ARCLEN)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=R8),	intent(inout),		DIMENSION(:)	::	Y
integer,	intent(inout)			::	IFLAG
real(kind=R8),	intent(inout)			::	ARCTOL
real(kind=R8),	intent(inout)			::	EPS
integer,	intent(in)			::	TRACE
real(kind=R8),	intent(inout),		DIMENSION(:)	::	A
integer,	intent(in)			::	NDIMA
integer,	intent(out)			::	NFE
real(kind=R8),	intent(out)			::	ARCLEN

public subroutine FIXPDS(N, Y, IFLAG, ARCTOL, EPS, TRACE, A, NDIMA, NFE, ARCLEN, MODE, LENQR)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=R8),	intent(inout),		DIMENSION(:)	::	Y
integer,	intent(inout)			::	IFLAG
real(kind=R8),	intent(inout)			::	ARCTOL
real(kind=R8),	intent(inout)			::	EPS
integer,	intent(in)			::	TRACE
real(kind=R8),	intent(inout),		DIMENSION(:)	::	A
integer,	intent(in)			::	NDIMA
integer,	intent(out)			::	NFE
real(kind=R8),	intent(out)			::	ARCLEN
integer,	intent(in)			::	MODE
integer,	intent(in)			::	LENQR

public subroutine FIXPNF(N, Y, IFLAG, ARCRE, ARCAE, ANSRE, ANSAE, TRACE, A, SSPAR, NFE, ARCLEN, POLY_SWITCH)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=R8),	intent(inout),		DIMENSION(:)	::	Y
integer,	intent(inout)			::	IFLAG
real(kind=R8),	intent(inout)			::	ARCRE
real(kind=R8),	intent(inout)			::	ARCAE
real(kind=R8),	intent(inout)			::	ANSRE
real(kind=R8),	intent(inout)			::	ANSAE
integer,	intent(in)			::	TRACE
real(kind=R8),	intent(inout),		DIMENSION(:)	::	A
real(kind=R8),	intent(inout)			::	SSPAR(8)
integer,	intent(out)			::	NFE
real(kind=R8),	intent(out)			::	ARCLEN
logical,	intent(in),	optional		::	POLY_SWITCH

public subroutine FIXPNS(N, Y, IFLAG, ARCRE, ARCAE, ANSRE, ANSAE, TRACE, A, NFE, ARCLEN, MODE, LENQR, SSPAR)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=R8),	intent(inout),		DIMENSION(:)	::	Y
integer,	intent(inout)			::	IFLAG
real(kind=R8),	intent(inout)			::	ARCRE
real(kind=R8),	intent(inout)			::	ARCAE
real(kind=R8),	intent(inout)			::	ANSRE
real(kind=R8),	intent(inout)			::	ANSAE
integer,	intent(in)			::	TRACE
real(kind=R8),	intent(inout),		DIMENSION(:)	::	A
integer,	intent(out)			::	NFE
real(kind=R8),	intent(out)			::	ARCLEN
integer,	intent(in)			::	MODE
integer,	intent(in)			::	LENQR
real(kind=R8),	intent(inout)			::	SSPAR(8)

public subroutine FIXPQF(N, Y, IFLAG, ARCRE, ARCAE, ANSRE, ANSAE, TRACE, A, SSPAR, NFE, ARCLEN)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	N
real(kind=R8)				::	Y(:)
integer				::	IFLAG
real(kind=R8)				::	ARCRE
real(kind=R8)				::	ARCAE
real(kind=R8)				::	ANSRE
real(kind=R8)				::	ANSAE
integer				::	TRACE
real(kind=R8)				::	A(:)
real(kind=R8)				::	SSPAR(4)
integer				::	NFE
real(kind=R8)				::	ARCLEN

public subroutine FIXPQS(N, Y, IFLAG, ARCRE, ARCAE, ANSRE, ANSAE, TRACE, A, NFE, ARCLEN, MODE, LENQR, SSPAR)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
real(kind=R8),	intent(inout),		DIMENSION(:)	::	Y
integer,	intent(inout)			::	IFLAG
real(kind=R8),	intent(inout)			::	ARCRE
real(kind=R8),	intent(inout)			::	ARCAE
real(kind=R8),	intent(inout)			::	ANSRE
real(kind=R8),	intent(inout)			::	ANSAE
integer,	intent(in)			::	TRACE
real(kind=R8),	intent(inout),		DIMENSION(:)	::	A
integer,	intent(out)			::	NFE
real(kind=R8),	intent(out)			::	ARCLEN
integer,	intent(in)			::	MODE
integer,	intent(in)			::	LENQR
real(kind=R8),	intent(inout)			::	SSPAR(4)

public subroutine POLSYS1H(N, NUMT, COEF, KDEG, IFLG1, IFLG2, EPSBIG, EPSSML, SSPAR, NUMRR, LAMBDA, ROOTS, ARCLEN, NFE)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	N
integer,	intent(in)			::	NUMT(:)
real(kind=R8),	intent(inout)			::	COEF(:,:)
integer,	intent(inout)			::	KDEG(:,:,:)
integer,	intent(inout)			::	IFLG1
integer,	intent(inout)			::	IFLG2(:)
real(kind=R8),	intent(in)			::	EPSBIG
real(kind=R8),	intent(in)			::	EPSSML
real(kind=R8),	intent(inout)			::	SSPAR(8)
integer,	intent(in)			::	NUMRR
real(kind=R8),	intent(out)			::	LAMBDA(:)
real(kind=R8),	intent(out)			::	ROOTS(:,:,:)
real(kind=R8),	intent(out)			::	ARCLEN(:)
integer,	intent(out)			::	NFE(:)