F_SWAXPBY/F_DWAXPBY/F_CWAXPBY/F_ZWAXPBY | Scaled vector addition | ||
Name | F_SWAXPBY/F_DWAXPBY/F_CWAXPBY/F_ZWAXPBY |
| |
| Scaled vector addition |
|
|
Purpose | F_xWAXPBY scales the vector x by α and the vector y by β, adds these two | ||
| vectors, and stores the result in the vector w. If n is less than or equal to zero | ||
| the routine returns immediately. |
| |
|
| w ← αx + βy |
|
Usage | VECLIB: |
|
|
| INTEGER*4 | INCW, INCX, INCY, N |
|
| REAL*4 | ALPHA, BETA, W( * ), X( * ), Y( * ) |
|
| SUBROUTINE F_SWAXPBY (N, ALPHA, X, INCX, BETA, Y, INCY, W, | ||
| INCW) |
|
|
| INTEGER*4 | INCW, INCX, INCY, N |
|
| REAL*8 | ALPHA, BETA, W( * ), X( * ), Y( * ) |
|
| SUBROUTINE F_DWAXPBY (N, ALPHA, X, INCX, BETA, Y, INCY, W, | ||
| INCW) |
|
|
| INTEGER*4 | INCW, INCX, INCY, N |
|
| COMPLEX*8 | ALPHA, BETA, W( * ), X( * ), Y( * ) |
|
| SUBROUTINE F_CWAXPBY (N, ALPHA, X, INCX, BETA, Y, INCY, W, | ||
| INCW) |
|
|
| INTEGER*4 | INCW, INCX, INCY, N |
|
| COMPLEX*16 | ALPHA, BETA, W( * ), X( * ), Y( * ) |
|
| SUBROUTINE F_ZWAXPBY (N, ALPHA, X, INCX, BETA, Y, INCY, W, | ||
| INCW) |
|
|
| VECLIB8: |
|
|
| INTEGER*8 | INCW, INCX, INCY, N |
|
| REAL*4 | ALPHA, BETA, W( * ), X( * ), Y( * ) |
|
| SUBROUTINE F_SWAXPBY (N, ALPHA, X, INCX, BETA, Y, INCY, W, | ||
| INCW) |
|
|
| INTEGER*8 | INCW, INCX, INCY, N |
|
| REAL*8 | ALPHA, BETA, W( * ), X( * ), Y( * ) |
|
| SUBROUTINE F_DWAXPBY (N, ALPHA, X, INCX, BETA, Y, INCY, W, | ||
| INCW) |
|
|
202HP MLIB User’s Guide