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

280 HP MLIB User’s Guide
SSYR2/DSYR2/CHER2/ZHER2 Rank-2 update
CHARACTER*1 uplo
INTEGER*4 n, lda, incx, incy
COMPLEX*16 alpha, a(lda, n), x(lenx), y(leny)
CALL ZHER2(uplo, n, alpha, x, incx, y, incy, a, lda)
VECLIB8:
CHARACTER*1 uplo
INTEGER*8 n, lda, incx, incy
REAL*4 alpha, a(lda, n), x(lenx), y(leny)
CALL SSYR2(uplo, n, alpha, x, incx, y, incy, a, lda)
CHARACTER*1 uplo
INTEGER*8 n, lda, incx, incy
REAL*8 alpha, a(lda, n), x(lenx), y(leny)
CALL DSYR2(uplo, n, alpha, x, incx, y, incy, a, lda)
CHARACTER*1 uplo
INTEGER*8 n, lda, incx, incy
COMPLEX*8 alpha, a(lda, n), x(lenx), y(leny)
CALL CHER2(uplo, n, alpha, x, incx, y, incy, a, lda)
CHARACTER*1 uplo
INTEGER*8 n, lda, incx, incy
COMPLEX*16 alpha, a(lda, n), x(lenx), y(leny)
CALL ZHER2(uplo, n, alpha, x, incx, y, incy, a, lda)
Input uplo Upper/lower triangular option for A:
’L’ or ’l’ Reference and update only the lower
triangle of A.
’U’ or ’u’ Reference and update only the upper
triangle of A.
n Number of rows and columns in matrix A and elements
of vectors x and y, n ≥ 0. If n = 0, the subprograms do
not reference a, x, or y.
alpha The scalar α. If alpha = 0, the subprograms do not
reference a, x, or y.
x Array of length lenx = (n−1)×|incx|+1 containing the
n-vector x.
incx Increment for the array x, incx ≠ 0:
incx > 0 x is stored forward in array x; that is,
x
i
is stored in x((i−1)×incx+1).