vector_diag Function

public pure function vector_diag(A) result(r)

Extract the diagonal of a general complex matrix.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=wp),	intent(in),		dimension(:,:)	::	A	Matrix [n×m]

Return Value complex(kind=wp), dimension(min(size(A,1),size(A,2)))

r = Diag(A)

Contents

None