is_orthonormal_complex_sp Function

private pure function is_orthonormal_complex_sp(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=sp),	intent(in)			::	M(:,:)

Return Value logical