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

80 HP MLIB User’s Guide
SCOPY/DCOPY/ICOPY/CCOPY/CCOPYC/ZCOPY/ZCOPYC Copy vector
Name SCOPY/DCOPY/ICOPY/CCOPY/CCOPYC/ZCOPY/ZCOPYC
Copy vector
Purpose Given real, integer, or complex vectors x and y of length n, these subprograms
perform the vector copy operations
where is the complex conjugate of x. The vectors can be stored in
one-dimensional arrays or in either rows or columns of two-dimensional arrays.
Indexing through the arrays can be either forward or backward.
Usage VECLIB:
INTEGER*4 n, incx, incy
REAL*4 x(lenx), y(leny)
CALL SCOPY(n, x, incx, y, incy)
INTEGER*4 n, incx, incy
REAL*8 x(lenx), y(leny)
CALL DCOPY(n, x, incx, y, incy)
INTEGER*4 n, incx, incy, x(lenx), y(leny)
CALL ICOPY(n, x, incx, y, incy)
INTEGER*4 n, incx, incy
COMPLEX*8 x(lenx), y(leny)
CALL CCOPY(n, x, incx, y, incy)
INTEGER*4 n, incx, incy
COMPLEX*8 x(lenx), y(leny)
CALL CCOPYC(n, x, incx, y, incy)
INTEGER*4 n, incx, incy
COMPLEX*16 x(lenx), y(leny)
CALL ZCOPY(n, x, incx, y, incy)
INTEGER*4 n, incx, incy
COMPLEX*16 x(lenx), y(leny)
CALL ZCOPYC(n, x, incx, y, incy)
VECLIB8:
INTEGER*8 n, incx, incy
REAL*4 x(lenx), y(leny)
CALL SCOPY(n, x, incx, y, incy)
yx← and yx←
x