SSPR/DSPR/CHPR/ZHPR |
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)
256HP MLIB User’s Guide