Copy vector

SCOPY/DCOPY/ICOPY/CCOPY/CCOPYC/ZCOPY/ZCOPYC

INTEGER*8

n, incx, incy

REAL*8

x(lenx), y(leny)

CALL DCOPY(n, x, incx, y, incy)

INTEGER*8

n, incx, incy, x(lenx), y(leny)

CALL ICOPY(n, x, incx, y, incy)

INTEGER*8

n, incx, incy

COMPLEX*8

x(lenx), y(leny)

CALL CCOPY(n, x, incx, y, incy)

INTEGER*8

n, incx, incy

COMPLEX*8

x(lenx), y(leny)

CALL CCOPYC(n, x, incx, y, incy)

INTEGER*8

n, incx, incy

COMPLEX*16

x(lenx), y(leny)

CALL ZCOPY(n, x, incx, y, incy)

INTEGER*8

n, incx, incy

COMPLEX*16

x(lenx), y(leny)

CALL ZCOPYC(n, x, incx, y, incy)

Chapter 2 Basic Vector Operations 81