|
|
@@ -48,11 +48,12 @@ OPENBLAS_COMPLEX_FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLA |
|
|
|
|
|
|
|
dot[0]=0.0; |
|
|
|
dot[1]=0.0; |
|
|
|
/* |
|
|
|
#if !defined(__PPC__) |
|
|
|
CREAL(result) = 0.0 ; |
|
|
|
CIMAG(result) = 0.0 ; |
|
|
|
*/ |
|
|
|
#else |
|
|
|
result = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0); |
|
|
|
#endif |
|
|
|
if ( n < 1 ) return(result); |
|
|
|
|
|
|
|
inc_x2 = 2 * inc_x ; |
|
|
@@ -72,9 +73,12 @@ OPENBLAS_COMPLEX_FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLA |
|
|
|
i++ ; |
|
|
|
|
|
|
|
} |
|
|
|
/*CREAL(result) = dot[0]; |
|
|
|
CIMAG(result) = dot[1];*/ |
|
|
|
#if !defined(__POWER__) |
|
|
|
CREAL(result) = dot[0]; |
|
|
|
CIMAG(result) = dot[1]; |
|
|
|
#else |
|
|
|
result = OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0],dot[1]); |
|
|
|
#endif |
|
|
|
return(result); |
|
|
|
|
|
|
|
} |
|
|
|