Browse Source

Replace gnu _real_, _imag_ extensions in initializers

tags/v0.2.20^2
Martin Kroeker GitHub 9 years ago
parent
commit
e44b028fe5
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      interface/zdot.c

+ 3
- 3
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;


Loading…
Cancel
Save