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

y x and y x

where x 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)

80HP MLIB User’s Guide