diagonal Interface

public interface diagonal

Module Procedures

private pure function d_diagonal(A) result(dd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=8),	intent(in)			::	A(:,:)

Return Value real(kind=8), dimension(size(A,1))

private pure function z_diagonal(A) result(dd)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	A(:,:)

Return Value complex(kind=8), dimension(size(A,1))