getDiag Function

function getDiag(A) result(Diag_vec)

Arguments

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

Return Value real(kind=real64), allocatable, (:)