zhpmv - perform the matrix-vector operation y := alpha*A*x + beta*y
SUBROUTINE ZHPMV( UPLO, N, ALPHA, A, X, INCX, BETA, Y, INCY) CHARACTER * 1 UPLO DOUBLE COMPLEX ALPHA, BETA DOUBLE COMPLEX A(*), X(*), Y(*) INTEGER N, INCX, INCY
SUBROUTINE ZHPMV_64( UPLO, N, ALPHA, A, X, INCX, BETA, Y, INCY) CHARACTER * 1 UPLO DOUBLE COMPLEX ALPHA, BETA DOUBLE COMPLEX A(*), X(*), Y(*) INTEGER*8 N, INCX, INCY
SUBROUTINE HPMV( UPLO, [N], ALPHA, A, X, [INCX], BETA, Y, [INCY]) CHARACTER(LEN=1) :: UPLO COMPLEX(8) :: ALPHA, BETA COMPLEX(8), DIMENSION(:) :: A, X, Y INTEGER :: N, INCX, INCY
SUBROUTINE HPMV_64( UPLO, [N], ALPHA, A, X, [INCX], BETA, Y, [INCY]) CHARACTER(LEN=1) :: UPLO COMPLEX(8) :: ALPHA, BETA COMPLEX(8), DIMENSION(:) :: A, X, Y INTEGER(8) :: N, INCX, INCY
#include <sunperf.h>
void zhpmv(char uplo, int n, doublecomplex alpha, doublecomplex *a, doublecomplex *x, int incx, doublecomplex beta, doublecomplex *y, int incy);
void zhpmv_64(char uplo, long n, doublecomplex alpha, doublecomplex *a, doublecomplex *x, long incx, doublecomplex beta, doublecomplex *y, long incy);
zhpmv performs the matrix-vector operation y := alpha*A*x + beta*y where alpha and beta are scalars, x and y are n element vectors and A is an n by n hermitian matrix, supplied in packed form.
UPLO = 'U' or 'u' The upper triangular part of A is supplied in A.
UPLO = 'L' or 'l' The lower triangular part of A is supplied in A.
Unchanged on exit.