symmetric Function

public function symmetric(A) result(ret)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: A(:,:)

Return Value logical