13 const CBLAS_INT N,
const float alpha,
const void *X,
30 float *x=(
float *)X, *xx=(
float *)X, *tx, *st;
43 cblas_xerbla(2,
"cblas_chpr",
"Illegal Uplo setting, %d\n",Uplo );
61 cblas_xerbla(2,
"cblas_chpr",
"Illegal Uplo setting, %d\n", Uplo);
72 x = malloc(n*
sizeof(
float));
105 cblas_xerbla(1,
"cblas_chpr",
"Illegal layout setting, %d\n", layout);
void F77_chpr(int *layout, char *uplow, int *n, float *alpha, CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *ap)
void cblas_xerbla(CBLAS_INT p, const char *rout, const char *form,...)
void cblas_chpr(const CBLAS_LAYOUT layout, const CBLAS_UPLO Uplo, const CBLAS_INT N, const float alpha, const void *X, const CBLAS_INT incX, void *A)