Browse Source

Make last parameter of cblas_Xdotc_sub/cblas_Xdotu_sub a void pointer as well

tags/v0.3.0
Martin Kroeker GitHub 7 years ago
parent
commit
3ce401f51b
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 1 deletions
  1. +5
    -1
      interface/zdot.c

+ 5
- 1
interface/zdot.c View File

@@ -148,7 +148,8 @@ OPENBLAS_COMPLEX_FLOAT NAME( blasint *N, FLOAT *x, blasin
#else

#ifdef FORCE_USE_STACK
void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, OPENBLAS_COMPLEX_FLOAT *result){
void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, void *vresult){
OPENBLAS_COMPLEX_FLOAT *result;
#else
OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy){

@@ -164,6 +165,7 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin
#ifdef FORCE_USE_STACK
OPENBLAS_COMPLEX_FLOAT zero=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
*result = zero;
vresult=(void*)result;
// CREAL(*result) = 0.0;
// CIMAG(*result) = 0.0;
return;
@@ -183,8 +185,10 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasin

#ifndef CONJ
*result = DOTU_K(n, x, incx, y, incy);
vresult=(void*)result;
#else
*result = DOTC_K(n, x, incx, y, incy);
vresult=(void*)result;
#endif

FUNCTION_PROFILE_END(4, 2 * n, 2 * n);


Loading…
Cancel
Save