Browse Source

Fix addressing of alpha in CBLAS

tags/v0.3.30
Martin Kroeker GitHub 11 months ago
parent
commit
42b7d1f897
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      interface/zsyr.c

+ 2
- 2
interface/zsyr.c View File

@@ -116,12 +116,12 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA,

#else

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

FLOAT *buffer;
int uplo;
blasint info;
FLOAT * ALPHA = α
FLOAT * ALPHA = (FLOAT*)valpha;
FLOAT alpha_r = ALPHA[0];
FLOAT alpha_i = ALPHA[1];
#ifdef SMP


Loading…
Cancel
Save