floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make return parameter of cblas_Xdotc_sub, cblas_Xdotu_sub a void pointer as well

This commit is contained in:
Martin Kroeker 2017-11-18 20:28:02 +01:00 committed by GitHub
parent 3ce401f51b
commit b46e2b57cc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
interface/zdot.c
View File

@ -148,8 +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, void *vresult){
OPENBLAS_COMPLEX_FLOAT *result;
void CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy, void* vresult){
OPENBLAS_COMPLEX_FLOAT *result= (OPENBLAS_COMPLEX_FLOAT*)vresult;
#else
OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, void *vx, blasint incx, void *vy, blasint incy){
@ -165,7 +165,6 @@ 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;
@ -185,10 +184,8 @@ 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);