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

200 HP MLIB User’s Guide
F_SSWAP/F_DSWAP/F_CSWAP/F_ZSWAP Interchange vectors
Name F_SSWAP/F_DSWAP/F_CSWAP/F_ZSWAP
Interchange vectors
Purpose F_xSWAP interchanges the vectors x and y, that is,
If n is less than or equal to zero, the routine returns immediately.
Usage VECLIB:
INTEGER*4 INCX, INCY, N
REAL*4 X( * ), Y( * )
SUBROUTINE F_SSWAP (N, X, INCX, Y, INCY)
INTEGER*4 INCX, INCY, N
REAL*8 X( * ), Y( * )
SUBROUTINE F_DSWAP (N, X, INCX, Y, INCY)
INTEGER*4 INCX, INCY, N
COMPLEX*8 X( * ), Y( * )
SUBROUTINE F_CSWAP (N, X, INCX, Y, INCY)
INTEGER*4 INCX, INCY, N
COMPLEX*16 X( * ), Y( * )
SUBROUTINE F_ZSWAP (N, X, INCX, Y, INCY)
VECLIB8:
INTEGER*8 INCX, INCY, N
REAL*4 X( * ), Y( * )
SUBROUTINE F_SSWAP (N, X, INCX, Y, INCY)
INTEGER*8 INCX, INCY, N
REAL*8 X( * ), Y( * )
SUBROUTINE F_DSWAP (N, X, INCX, Y, INCY)
INTEGER*8 INCX, INCY, N
COMPLEX*8 X( * ), Y( * )
SUBROUTINE F_CSWAP (N, X, INCX, Y, INCY)
INTEGER*8 INCX, INCY, N
COMPLEX*16 X( * ), Y( * )
SUBROUTINE F_ZSWAP (N, X, INCX, Y, INCY)
Input N Number of elements of vector x.
X REAL or COMPLEX array, minimum length
(N - 1) x |incx| + 1.
xy.↔