Skip to content

Commit 42b7d1f

Browse files
authored
Fix addressing of alpha in CBLAS
1 parent bd573a9 commit 42b7d1f

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

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)