Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=8), | intent(in) | :: | A(:,:) |
pure function z_diagonal(A) result(dd) complex(8),intent(in) :: A(:,:) complex(8),dimension(size(A,1)) :: dd integer :: i do i = 1,size(A,1) dd(i) = A(i,i) end do end function z_diagonal