|
|
|
@@ -77,7 +77,7 @@ static void ddot_kernel_8(BLASLONG n, FLOAT *x, FLOAT *y, FLOAT *d) |
|
|
|
|
|
|
|
#endif |
|
|
|
|
|
|
|
FLOAT dot_compute(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) |
|
|
|
static FLOAT dot_compute(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) |
|
|
|
{ |
|
|
|
BLASLONG i=0; |
|
|
|
BLASLONG ix=0,iy=0; |
|
|
|
@@ -189,7 +189,6 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y) |
|
|
|
#else |
|
|
|
mode = BLAS_DOUBLE | BLAS_REAL; |
|
|
|
#endif |
|
|
|
fprintf(stderr,"threaded ddot with %d threads\n",nthreads); |
|
|
|
blas_level1_thread_with_return_value(mode, n, 0, 0, &dummy_alpha, |
|
|
|
x, inc_x, y, inc_y, result, 0, |
|
|
|
( void *)dot_thread_function, nthreads); |
|
|
|
|