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

Update zdot.c

This commit is contained in:
Martin Kroeker 2019-08-15 15:36:01 +02:00 committed by GitHub
parent c23787c639
commit 74a08953df
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
kernel/x86_64/zdot.c
View File

@ -100,11 +100,10 @@ static void zdot_compute (BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLO
BLASLONG i; BLASLONG i;
BLASLONG ix,iy; BLASLONG ix,iy;
FLOAT dot[4] = { 0.0, 0.0, 0.0 , 0.0 } ; FLOAT dot[4] = { 0.0, 0.0, 0.0 , 0.0 } ;
OPENBLAS_COMPLEX_FLOAT res;
if ( n <= 0 ) if ( n <= 0 )
{ {
res=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0); OPENBLAS_COMPLEX_FLOAT res=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0);
*result=res; *result=res;
return; return;
@ -159,9 +158,9 @@ static void zdot_compute (BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLO
} }
#if !defined(CONJ) #if !defined(CONJ)
res=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]-dot[1],dot[2]+dot[3]); OPENBLAS_COMPLEX_FLOAT res=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]-dot[1],dot[2]+dot[3]);
#else #else
res=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]+dot[1],dot[2]-dot[3]); OPENBLAS_COMPLEX_FLOAT res=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]+dot[1],dot[2]-dot[3]);
#endif #endif
*result=res; *result=res;
return; return;