HP MLIB User's Guide Vol. 1 7th Ed.

Chapter 2 Basic Vector Operations 81
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)