matrix_trace Function

public pure function matrix_trace(A) result(r)

Calculates the trace of a general complex matrix.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=wp),	intent(in),		dimension(:, :)	::	A	Matrix [n×m]

Return Value complex(kind=wp)

r = Tr(A)