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

Fix clang-cl build

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

21
kernel/x86_64/zdot.c
View File

@ -86,15 +86,26 @@ static void zdot_kernel_8(BLASLONG n, FLOAT *x, FLOAT *y, FLOAT *d)
#endif
#if defined(SMP)
extern int blas_level1_thread_with_return_value(int mode, BLASLONG m, BLASLONG n,
BLASLONG k, void *alpha, void *a, BLASLONG lda, void *b, BLASLONG ldb,
void *c, BLASLONG ldc, int (*function)(), int nthreads);
#endif
static void zdot_compute (BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y,OPENBLAS_COMPLEX_FLOAT *result)
{
BLASLONG i;
BLASLONG ix,iy;
FLOAT dot[4] = { 0.0, 0.0, 0.0 , 0.0 } ;
OPENBLAS_COMPLEX_FLOAT res;
if ( n <= 0 )
{
*result=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0);
res=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0);
*result=res;
return;
}
@ -148,11 +159,11 @@ static void zdot_compute (BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLO
}
#if !defined(CONJ)
*result=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]-dot[1],dot[2]+dot[3]);
res=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]-dot[1],dot[2]+dot[3]);
#else
*result=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]+dot[1],dot[2]-dot[3]);
res=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]+dot[1],dot[2]-dot[3]);
#endif
*result=res;
return;
}