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

Replace gnu _real_, _imag_ extensions in initializers

This commit is contained in:
Martin Kroeker 2017-03-13 00:40:11 +01:00 committed by GitHub
parent a6efabf155
commit e44b028fe5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
interface/zdot.c
View File

@ -160,9 +160,9 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasin
if (n <= 0) {
#ifdef FORCE_USE_STACK
//*result = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
CREAL(*result) = 0.0;
CIMAG(*result) = 0.0;
*result = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
// CREAL(*result) = 0.0;
// CIMAG(*result) = 0.0;
return;
#else
return zero;