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

390 HP MLIB User’s Guide
F_SSYMV/F_DSYMV/F_CSYMV/F_ZSYMV Symmetric matrix-vector multiply
INTEGER*8 INCX, INCY, LDA, N, UPLO
REAL*8 ALPHA, BETA, A( LDA, * ), X( * ), Y( * )
SUBROUTINE F_DSYMV (UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y,
INCY)
INTEGER*8 INCX, INCY, LDA, N, UPLO
COMPLEX*8 ALPHA, BETA, A( LDA, * ), X( * ), Y( * )
SUBROUTINE F_CSYMV (UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y,
INCY)
INTEGER*8 INCX, INCY, LDA, N, UPLO
COMPLEX*16 ALPHA, BETA,A( LDA, * ), X( * ), Y( * )
SUBROUTINE F_ZSYMV (UPLO, N, ALPHA, A, LDA, X, INCX, BETA, Y,
INCY)
Input UPLO Specifies whether a triangular matrix is upper or lower
triangular. Use either BLAS_UPPER or BLAS_LOWER.
N Number of columns in matrix A, n > 0. If , the
subprograms do not reference A, X, or Y.
ALPHA The scalar ALPHA. If beta = 1 and alpha = 0, this
routine returns immediately.
A REAL or COMPLEX array, dimension (LDA, N).
LDA Leading dimension of array A. If lda < 1 or lda < n an
error condition is generated.
X REAL or COMPLEX array, minimum length
(N - 1) x |incx| + 1.
INCX Increment for the array x. A vector x having component
x
i
, i = 1,..., n, is stored in an array X() with increment
argument incx. If incx > 0 then x
i
is stored in
X (1 + (i - 1) x incx). If incx < 0 then x
i
is stored in
X (1 + (N - i) x |incx|). incx = 0 is an illegal value.
BETA The scalar BETA. If beta = 1 and alpha = 0, this
routine returns immediately.
Y REAL or COMPLEX array, minimum length
(N - 1) x |incy| + 1.
INCY Increment for the array y. A vector y having component
y
i
, i = 1,..., n, is stored in an array Y() with increment
argument incy. If incy > 0 then y
i
is stored in
Y(1 + (i - 1) x incy). If incy < 0 then y
i
is stored in
Y(1 + (N - i) x |incy|). incy = 0 is an illegal value.
n 0≤