pic_zdotc Function

private function pic_zdotc(x, y) result(res)

interface for double precision complex dot product

Arguments

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

Return Value complex(kind=dp)


Calls

proc~~pic_zdotc~~CallsGraph proc~pic_zdotc pic_zdotc interface~blas_dot blas_dot proc~pic_zdotc->interface~blas_dot

Called by

proc~~pic_zdotc~~CalledByGraph proc~pic_zdotc pic_zdotc interface~pic_dot pic_dot interface~pic_dot->proc~pic_zdotc

Variables

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

Source Code

   function pic_zdotc(x, y) result(res)
      !! interface for double precision complex dot product
      complex(dp), intent(in) :: x(:)
      complex(dp), intent(in) :: y(:)
      complex(dp) :: res
      integer(default_int) :: n, incx, incy
      n = size(x)
      incx = 1
      incy = 1
      res = blas_dot(n, x, incx, y, incy)
   end function pic_zdotc