Skip to content

Commit 7f2d7da

Browse files
authored
Fix passing of variable alpha in the CBLAS case
1 parent b68b990 commit 7f2d7da

1 file changed

Lines changed: 2 additions & 2 deletions

File tree

interface/zsyr.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -116,12 +116,12 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,
116116

117117
#else
118118

119-
void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLOAT *x, int incx, FLOAT *a, int lda) {
119+
void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, void *valpha, FLOAT *x, int incx, FLOAT *a, int lda) {
120120

121121
FLOAT *buffer;
122122
int uplo;
123123
blasint info;
124-
FLOAT * ALPHA = α
124+
FLOAT * ALPHA = (FLOAT*)valpha;
125125
FLOAT alpha_r = ALPHA[0];
126126
FLOAT alpha_i = ALPHA[1];
127127
#ifdef SMP

0 commit comments

Comments
 (0)