zdiag Function

pure function zdiag(x) result(A)

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=8),	intent(in)			::	x(:)

Return Value complex(kind=8), allocatable, (:,:)

Source Code

pure function zdiag(x) result(A)
  complex(8), intent(in)  :: x(:)
  complex(8), allocatable :: A(:,:)
  integer                 :: i, n
  n = size(x)
  allocate(A(n,n))
  A(:,:) = zero
  forall(i=1:n) A(i,i) = x(i)
end function zdiag