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

276 HP MLIB User’s Guide
SSYR/DSYR/CHER/ZHER Rank-1 update
CHARACTER*1 uplo
INTEGER*4 n, lda, incx
REAL*8 alpha
COMPLEX*16 a(lda, n), x(lenx)
CALL ZHER(uplo, n, alpha, x, incx, a, lda)
VECLIB8:
CHARACTER*1 uplo
INTEGER*8 n, lda, incx
REAL*4 alpha, a(lda, n), x(lenx)
CALL SSYR(uplo, n, alpha, x, incx, a, lda)
CHARACTER*1 uplo
INTEGER*8 n, lda, incx
REAL*8 alpha, a(lda, n), x(lenx)
CALL DSYR(uplo, n, alpha, x, incx, a, lda)
CHARACTER*1 uplo
INTEGER*8 n, lda, incx
REAL*4 alpha
COMPLEX*8 a(lda, n), x(lenx)
CALL CHER(uplo, n, alpha, x, incx, a, lda)
CHARACTER*1 uplo
INTEGER*8 n, lda, incx
REAL*8 alpha
COMPLEX*16 a(lda, n), x(lenx)
CALL ZHER(uplo, n, alpha, x, incx, 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 vector x, n ≥ 0. If n = 0, the subprograms do not
reference a or x.
alpha The scalar α. If alpha = 0, the subprograms do not
reference a or x.
x Array of length lenx = (n−1)×|incx|+1 containing the
n-vector x.
incx Increment for the array x, incx ≠ 0: