is_orthonormal Interface

public interface is_orthonormal

Module Procedures

private pure function is_orthonormal_real_sp(M) result(res)

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

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=sp), intent(in) :: M(:,:)

Return Value logical

private pure function is_orthonormal_real_dp(M) result(res)

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

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: M(:,:)

Return Value logical

private pure function is_orthonormal_complex_sp(M) result(res)

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

Read more…

Arguments

Type IntentOptional Attributes Name
complex(kind=sp), intent(in) :: M(:,:)

Return Value logical

private pure function is_orthonormal_complex_dp(M) result(res)

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

Read more…

Arguments

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

Return Value logical