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

142 HP MLIB User’s Guide
SSWAP/DSWAP/ISWAP/CSWAP/ZSWAP Swap two vectors
INTEGER*8 n, incx, incy
COMPLEX*8 x(lenx), y(leny)
CALL CSWAP(n, x, incx, y, incy)
INTEGER*8 n, incx, incy
COMPLEX*16 x(lenx), y(leny)
CALL ZSWAP(n, x, incx, y, incy)
Input n Number of elements of vectors x and y to be used in the
swap operation. If n ≤ 0, the subprograms do not
reference x or y.
x Array of length lenx = (n−1)×|incx|+1 containing the
n-vector x.