INTERPOL_DECOMP_MOD Module

Uses

- EC_PARKIND
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 COMPUTE_ID(PEPS, KM, KN, PMAT, KRANK, KBCLIST, PNONIM)

$IF(KRANK < KN) THEN $ PRINT *,'MAXVAL PNONIM ',KM,KM,KRANK,MAXVAL( PNONIM(1:KRANK,1:KN-KRANK)) $ENDIF

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=JPRD),	intent(in)			::	PEPS
integer(kind=JPIM),	intent(in)			::	KM
integer(kind=JPIM),	intent(in)			::	KN
real(kind=JPRD),	intent(in)			::	PMAT(:,:)
integer(kind=JPIM),	intent(out)			::	KRANK
integer(kind=JPIM),	intent(out)			::	KBCLIST(:)
real(kind=JPRD),	intent(out)			::	PNONIM(:,:)

public subroutine ALG541(PEPS, KM, KN, PA, KRANK, KLIST)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=JPRD),	intent(in)			::	PEPS
integer(kind=JPIM),	intent(in)			::	KM
integer(kind=JPIM),	intent(in)			::	KN
real(kind=JPRD),	intent(inout)			::	PA(:,:)
integer(kind=JPIM),	intent(out)			::	KRANK
integer(kind=JPIM),	intent(out)			::	KLIST(:)

public subroutine ALG511(PEPS, KSIZE, PX, PV, PBETA)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=JPRD),	intent(in)			::	PEPS
integer(kind=JPIM),	intent(in)			::	KSIZE
real(kind=JPRD),	intent(in)			::	PX(:)
real(kind=JPRD),	intent(out)			::	PV(:)
real(kind=JPRD),	intent(out)			::	PBETA