chpmv - perform the matrix-vector operation y := alpha*A*x + beta*y
SUBROUTINE CHPMV( UPLO, N, ALPHA, A, X, INCX, BETA, Y, INCY) CHARACTER * 1 UPLO COMPLEX ALPHA, BETA COMPLEX A(*), X(*), Y(*) INTEGER N, INCX, INCY
SUBROUTINE CHPMV_64( UPLO, N, ALPHA, A, X, INCX, BETA, Y, INCY) CHARACTER * 1 UPLO COMPLEX ALPHA, BETA 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 :: ALPHA, BETA COMPLEX, 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 :: ALPHA, BETA COMPLEX, DIMENSION(:) :: A, X, Y INTEGER(8) :: N, INCX, INCY
#include <sunperf.h>
void chpmv(char uplo, int n, complex alpha, complex *a, complex *x, int incx, complex beta, complex *y, int incy);
void chpmv_64(char uplo, long n, complex alpha, complex *a, complex *x, long incx, complex beta, complex *y, long incy);
chpmv 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.