Swap two vectors

SSWAP/DSWAP/ISWAP/CSWAP/ZSWAP

Name SSWAP/DSWAP/ISWAP/CSWAP/ZSWAP

Swap two vectors

Purpose Given real, integer, or complex vectors x and y of length n, these subprograms perform the vector interchange operation

x↔ y.

The vectors can be stored in one-dimensional arrays or in either rows or columns of two-dimensional arrays. The indexing through the arrays can be either forward or backward.

Usage

VECLIB:

 

 

INTEGER*4

n, incx, incy

 

REAL*4

x(lenx), y(leny)

 

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

 

INTEGER*4

n, incx, incy

 

REAL*8

x(lenx), y(leny)

 

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

 

INTEGER*4

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

 

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

 

INTEGER*4

n, incx, incy

 

COMPLEX*8

x(lenx), y(leny)

 

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

 

INTEGER*4

n, incx, incy

 

COMPLEX*16

x(lenx), y(leny)

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

VECLIB8:

INTEGER*8

n, incx, incy

REAL*4

x(lenx), y(leny)

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

INTEGER*8

n, incx, incy

REAL*8

x(lenx), y(leny)

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

INTEGER*8

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

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

Chapter 2 Basic Vector Operations 141