pic_zcopy Subroutine

private subroutine pic_zcopy(x, y)

interface for double precision complex copy

Arguments

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

Calls

proc~~pic_zcopy~~CallsGraph proc~pic_zcopy pic_zcopy interface~blas_copy blas_copy proc~pic_zcopy->interface~blas_copy

Called by

proc~~pic_zcopy~~CalledByGraph proc~pic_zcopy pic_zcopy interface~pic_copy pic_copy interface~pic_copy->proc~pic_zcopy

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

   subroutine pic_zcopy(x, y)
      !! interface for double precision complex copy
      complex(dp), intent(in) :: x(:)
      complex(dp), intent(inout) :: y(:)
      integer(default_int) :: n, incx, incy
      n = size(x)
      incx = 1
      incy = 1
      call blas_copy(n, x, incx, y, incy)
   end subroutine pic_zcopy