tri_mtx_mult – LINALG

public interface tri_mtx_mult

An interface to the triangular matrix multiplication routines.

Performs the matrix operation $B = \alpha A^T A + \beta B$ or $B = \alpha A A^T + \beta B$ where $A$ is a triangular matrix.

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	upper	A logical flag indicating whether the matrix A is upper triangular (TRUE) or lower triangular (FALSE).
real(kind=real64),	intent(in)			::	alpha	The scalar $\alpha$ to multiply by.
real(kind=real64),	intent(in),		dimension(:,:)	::	a	The triangular matrix $A$ to multiply by.
real(kind=real64),	intent(in)			::	beta	The scalar $\beta$ to multiply by.
real(kind=real64),	intent(inout),		dimension(:,:)	::	b	On input, the matrix $B$ to multiply. On output, the result of the operation.
class(errors),	intent(inout),	optional,	target	::	err	An error object to report any errors that occur.

Performs the matrix operation $B = \alpha A^T A + \beta B$ or $B = \alpha A A^T + \beta B$ where $A$ is a triangular matrix.

Type	Intent	Optional	Attributes		Name
logical,	intent(in)			::	upper	A logical flag indicating whether the matrix A is upper triangular (TRUE) or lower triangular (FALSE).
complex(kind=real64),	intent(in)			::	alpha	The scalar $\alpha$ to multiply by.
complex(kind=real64),	intent(in),		dimension(:,:)	::	a	The triangular matrix $A$ to multiply by.
complex(kind=real64),	intent(in)			::	beta	The scalar $\beta$ to multiply by.
complex(kind=real64),	intent(inout),		dimension(:,:)	::	b	On input, the matrix $B$ to multiply. On output, the result of the operation.
class(errors),	intent(inout),	optional,	target	::	err	An error object to report any errors that occur.