pic_dzasum Function

private function pic_dzasum(x) result(res)

interface for double precision complex absolute sum

Arguments

Type IntentOptional Attributes Name
complex(kind=dp), intent(in) :: x(:)

Return Value real(kind=dp)


Calls

proc~~pic_dzasum~~CallsGraph proc~pic_dzasum pic_dzasum interface~blas_asum blas_asum proc~pic_dzasum->interface~blas_asum

Called by

proc~~pic_dzasum~~CalledByGraph proc~pic_dzasum pic_dzasum interface~pic_asum pic_asum interface~pic_asum->proc~pic_dzasum

Variables

Type Visibility Attributes Name Initial
integer(kind=default_int), private :: incx
integer(kind=default_int), private :: n

Source Code

   function pic_dzasum(x) result(res)
      !! interface for double precision complex absolute sum
      complex(dp), intent(in) :: x(:)
      real(dp) :: res
      integer(default_int) :: n, incx
      n = size(x)
      incx = 1
      res = blas_asum(n, x, incx)
   end function pic_dzasum