mattraceproduct Function

public function mattraceproduct(a, b) result(trace)

computes the trace of the matrix A * B first dimension of A has to match second dimension of B second dimension of A has to match first dimension of B

Arguments

Type IntentOptional Attributes Name
real(kind=long), intent(in) :: a(:,:)
real(kind=long), intent(in) :: b(:,:)

Return Value real(kind=long)