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

256 HP MLIB User’s Guide
SSPR/DSPR/CHPR/ZHPR Rank-1 update
VECLIB8:
CHARACTER*1 uplo
INTEGER*8 n, incx
REAL*4 alpha, ap(lenap), x(lenx)
CALL SSPR(uplo, n, alpha, x, incx, ap)
CHARACTER*1 uplo
INTEGER*8 n, incx
REAL*8 alpha, ap(lenap), x(lenx)
CALL DSPR(uplo, n, alpha, x, incx, ap)
CHARACTER*1 uplo
INTEGER*8 n, incx
REAL*4 alpha
COMPLEX*8 ap(lenap), x(lenx)
CALL CHPR(uplo, n, alpha, x, incx, ap)
CHARACTER*1 uplo
INTEGER*8 n, incx
REAL*8 alpha
COMPLEX*16 ap(lenap), x(lenx)
CALL ZHPR(uplo, n, alpha, x, incx, ap)