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, x ↔ y. |
|
| 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. |
200HP MLIB User’s Guide