is_symmetric Interface

  1. forlab_linalg.f90
  2. forlab_linalg
  3. is_symmetric

public interface is_symmetric

Contents

Module Procedures


Module Procedures

private function is_symmetric_rsp(A) result(is_symmetric)

real(sp) matrix is symmetric or not.

Arguments

Type IntentOptional AttributesName
real(kind=sp), intent(in) :: A(:,:)

Return Value logical

private function is_symmetric_rdp(A) result(is_symmetric)

real(dp) matrix is symmetric or not.

Arguments

Type IntentOptional AttributesName
real(kind=dp), intent(in) :: A(:,:)

Return Value logical

private function is_symmetric_csp(A) result(is_symmetric)

complex(sp) matrix is symmetric or not.

Arguments

Type IntentOptional AttributesName
complex(kind=sp), intent(in) :: A(:,:)

Return Value logical

private function is_symmetric_cdp(A) result(is_symmetric)

complex(dp) matrix is symmetric or not.

Arguments

Type IntentOptional AttributesName
complex(kind=dp), intent(in) :: A(:,:)

Return Value logical