| @@ -78,10 +78,10 @@ char tmpstr[20]; | |||||
| #ifdef DYNAMIC_ARCH | #ifdef DYNAMIC_ARCH | ||||
| strcat(tmp_config_str, gotoblas_corename()); | strcat(tmp_config_str, gotoblas_corename()); | ||||
| #endif | #endif | ||||
| if (openblas_get_parallel() == 0) | |||||
| sprintf(tmpstr, " SINGLE_THREADED"); | |||||
| else | |||||
| snprintf(tmpstr,19," MAX_THREADS=%d",MAX_CPU_NUMBER); | |||||
| if (openblas_get_parallel() == 0) | |||||
| sprintf(tmpstr, " SINGLE_THREADED"); | |||||
| else | |||||
| snprintf(tmpstr,19," MAX_THREADS=%d",MAX_CPU_NUMBER); | |||||
| strcat(tmp_config_str, tmpstr); | strcat(tmp_config_str, tmpstr); | ||||
| return tmp_config_str; | return tmp_config_str; | ||||
| } | } | ||||
| @@ -54,7 +54,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, | |||||
| BLASLONG n, info; | BLASLONG n, info; | ||||
| BLASLONG bk, i, blocking, start_i; | BLASLONG bk, i, blocking, start_i; | ||||
| int mode; | int mode; | ||||
| BLASLONG lda, range_N[2]; | |||||
| BLASLONG lda; // , range_N[2]; | |||||
| blas_arg_t newarg; | blas_arg_t newarg; | ||||
| FLOAT *a; | FLOAT *a; | ||||
| FLOAT alpha[2] = { ONE, ZERO}; | FLOAT alpha[2] = { ONE, ZERO}; | ||||
| @@ -100,8 +100,8 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, | |||||
| bk = n - i; | bk = n - i; | ||||
| if (bk > blocking) bk = blocking; | if (bk > blocking) bk = blocking; | ||||
| range_N[0] = i; | |||||
| range_N[1] = i + bk; | |||||
| /* range_N[0] = i; | |||||
| range_N[1] = i + bk; */ | |||||
| newarg.lda = lda; | newarg.lda = lda; | ||||
| newarg.ldb = lda; | newarg.ldb = lda; | ||||
| @@ -54,7 +54,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, | |||||
| BLASLONG n, info; | BLASLONG n, info; | ||||
| BLASLONG bk, i, blocking; | BLASLONG bk, i, blocking; | ||||
| int mode; | int mode; | ||||
| BLASLONG lda, range_N[2]; | |||||
| BLASLONG lda; //, range_N[2]; | |||||
| blas_arg_t newarg; | blas_arg_t newarg; | ||||
| FLOAT *a; | FLOAT *a; | ||||
| FLOAT alpha[2] = { ONE, ZERO}; | FLOAT alpha[2] = { ONE, ZERO}; | ||||
| @@ -96,8 +96,8 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, | |||||
| bk = n - i; | bk = n - i; | ||||
| if (bk > blocking) bk = blocking; | if (bk > blocking) bk = blocking; | ||||
| range_N[0] = i; | |||||
| range_N[1] = i + bk; | |||||
| /* range_N[0] = i; | |||||
| range_N[1] = i + bk; */ | |||||
| newarg.lda = lda; | newarg.lda = lda; | ||||
| newarg.ldb = lda; | newarg.ldb = lda; | ||||