is_orthonormal_complex_dp Function

private pure function is_orthonormal_complex_dp(M) result(res)

Check if all < M(:, i) | M(:, j) > = 0

Note that M does not have to be square.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(in)			::	M(:,:)

Return Value logical