rhodiag_mod Module

Contents

Functions

RHODIAG_CP HDIAG_CPP RHODIAG_CPP RHODIAG_CPPS2VS

Functions

private function RHODIAG_CP(RHOIJ, I_P, I_V)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	RHOIJ(0:I_V,0:I_V)
integer				::	I_P
integer				::	I_V

Return Value real(kind=dp)

private recursive function HDIAG_CPP(HIJ, I_P, I_V, IMISS, TSUB, BETA, DLWDB, HIJS) result(HDIAG_CPPRES)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	HIJ(I_V+1,I_V+1)
integer				::	I_P
integer				::	I_V
integer				::	IMISS
logical				::	TSUB
real(kind=dp)				::	BETA
real(kind=dp)				::	DLWDB
real(kind=dp)				::	HIJS(I_V+1)

Return Value real(kind=dp)

private recursive function RHODIAG_CPP(RHOIJ, I_P, I_V, IMISS, TSUB, DBETA, DLWDB, HIJS, tLogWeight) result(RhoDiag_CPPRES)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	RHOIJ(I_V+1,I_V+1)
integer				::	I_P
integer				::	I_V
integer				::	IMISS
logical				::	TSUB
real(kind=dp)				::	DBETA
real(kind=dp)				::	DLWDB
real(kind=dp)				::	HIJS(I_V+1)
logical				::	tLogWeight

Return Value real(kind=dp)

private function RHODIAG_CPPS2VS(RHOIJ, I_P, I_V, DBETA, DLWDB, HIJS) result(RhoDiag_CPPS2VS)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp)				::	RHOIJ(I_V+1,I_V+1)
integer				::	I_P
integer				::	I_V
real(kind=dp)				::	DBETA
real(kind=dp)				::	DLWDB
real(kind=dp)				::	HIJS(I_V+1)

Return Value real(kind=dp)