31 int n, i=0, incx=incX;
32 const double *xx= (
double *)X, *alp= (
double *)alpha, *bet = (
double *)beta;
33 double ALPHA[2],BETA[2];
35 double *x=(
double *)X, *y=(
double *)Y, *st=0, *tx;
47 cblas_xerbla(2,
"cblas_zhpmv",
"Illegal Uplo setting, %d\n",Uplo );
53 F77_UL = C2F_CHAR(&UL);
56 &F77_incX, beta, Y, &F77_incY);
69 x = malloc(n*
sizeof(
double));
122 cblas_xerbla(2,
"cblas_zhpmv",
"Illegal Uplo setting, %d\n", Uplo );
128 F77_UL = C2F_CHAR(&UL);
132 AP, x, &F77_incX, BETA, Y, &F77_incY);
136 cblas_xerbla(1,
"cblas_zhpmv",
"Illegal layout setting, %d\n", layout);
void cblas_xerbla(int p, const char *rout, const char *form,...)