dcopy Subroutine

public subroutine dcopy(n, dx, incx, dy, incy)

Copies a vector X to a vector Y.

Arguments

Type IntentOptional Attributes Name
integer(kind=ip) :: n
real(kind=wp) :: dx(*)
integer(kind=ip) :: incx
real(kind=wp) :: dy(*)
integer(kind=ip) :: incy

Source Code

      subroutine dcopy(n,dx,incx,dy,incy)
         implicit none
         double precision dx(*),dy(*)
         integer i,incx,incy,ix,iy,m,n
      end subroutine dcopy