vector_diag Function
public pure function vector_diag(A) result(r)
Extracts 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)