| @@ -126,6 +126,7 @@ void NAME(char *TRANSA, char *TRANSB, | |||||
| #ifdef SMP | #ifdef SMP | ||||
| double MNK; | double MNK; | ||||
| #if defined(USE_SIMPLE_THREADED_LEVEL3) || !defined(NO_AFFINITY) | |||||
| #ifndef COMPLEX | #ifndef COMPLEX | ||||
| #ifdef XDOUBLE | #ifdef XDOUBLE | ||||
| int mode = BLAS_XDOUBLE | BLAS_REAL; | int mode = BLAS_XDOUBLE | BLAS_REAL; | ||||
| @@ -144,6 +145,7 @@ void NAME(char *TRANSA, char *TRANSB, | |||||
| #endif | #endif | ||||
| #endif | #endif | ||||
| #endif | #endif | ||||
| #endif | |||||
| #if defined(SMP) && !defined(NO_AFFINITY) && !defined(USE_SIMPLE_THREADED_LEVEL3) | #if defined(SMP) && !defined(NO_AFFINITY) && !defined(USE_SIMPLE_THREADED_LEVEL3) | ||||
| int nodes; | int nodes; | ||||
| @@ -203,7 +203,7 @@ void CNAME(enum CBLAS_ORDER order, | |||||
| if (alpha == ZERO) return; | if (alpha == ZERO) return; | ||||
| if (trans == 0 && incx == 1 && incy == 1 && m*n < 2304 *GEMM_MULTITHREAD_THRESHOLD) { | if (trans == 0 && incx == 1 && incy == 1 && m*n < 2304 *GEMM_MULTITHREAD_THRESHOLD) { | ||||
| GEMV_N(m, n, 0, alpha, a, lda, x, incx, y, incy, buffer); | |||||
| GEMV_N(m, n, 0, alpha, a, lda, x, incx, y, incy, NULL); | |||||
| return; | return; | ||||
| } | } | ||||
| @@ -165,7 +165,7 @@ void CNAME(enum CBLAS_ORDER order, | |||||
| if (alpha == 0.) return; | if (alpha == 0.) return; | ||||
| if (incx == 1 && incy == 1 && 1L*m*n <= 2048 *GEMM_MULTITHREAD_THRESHOLD) { | if (incx == 1 && incy == 1 && 1L*m*n <= 2048 *GEMM_MULTITHREAD_THRESHOLD) { | ||||
| GER(m, n, 0, alpha, x, incx, y, incy, a, lda, buffer); | |||||
| GER(m, n, 0, alpha, x, incx, y, incy, a, lda, NULL); | |||||
| return; | return; | ||||
| } | } | ||||