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

202 HP MLIB User’s Guide
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.
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)
w αx βy+←