z_diagonal Function

pure function z_diagonal(A) result(dd)

Arguments

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

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


Source Code

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