32 int n, i=0, incx=incX;
33 const double *xx= (
double *)X, *alp= (
double *)alpha, *bet = (
double *)beta;
34 double ALPHA[2],BETA[2];
36 double *x=(
double *)X, *y=(
double *)Y, *st=0, *tx;
49 cblas_xerbla(2,
"cblas_zhemv",
"Illegal Uplo setting, %d\n",Uplo );
55 F77_UL = C2F_CHAR(&UL);
57 F77_zhemv(F77_UL, &F77_N, alpha, A, &F77_lda, X, &F77_incX,
71 x = malloc(n*
sizeof(
double));
124 cblas_xerbla(2,
"cblas_zhemv",
"Illegal Uplo setting, %d\n", Uplo);
130 F77_UL = C2F_CHAR(&UL);
132 F77_zhemv(F77_UL, &F77_N, ALPHA, A, &F77_lda, x, &F77_incX,
137 cblas_xerbla(1,
"cblas_zhemv",
"Illegal layout setting, %d\n", layout);
void cblas_xerbla(int p, const char *rout, const char *form,...)