| @@ -172,7 +172,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO | |||||
| if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; | if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; | ||||
| if (incx == 1 && incy == 1 && n < 50) { | |||||
| if (incx == 1 && n < 50) { | |||||
| blasint i; | blasint i; | ||||
| if (!uplo) { | if (!uplo) { | ||||
| for (i = 0; i < n; i++){ | for (i = 0; i < n; i++){ | ||||
| @@ -187,7 +187,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, int n, FLOAT alpha, FLO | |||||
| } else { | } else { | ||||
| for (i = 0; i < n; i++){ | for (i = 0; i < n; i++){ | ||||
| if ((x[i * 2 + 0] != ZERO) || (x[i * 2 + 1] != ZERO)) { | if ((x[i * 2 + 0] != ZERO) || (x[i * 2 + 1] != ZERO)) { | ||||
| AXPYU_K(m - i, 0, 0, | |||||
| AXPYU_K(n - i, 0, 0, | |||||
| alpha_r * x[i * 2 + 0] - alpha_i * x[i * 2 + 1], | alpha_r * x[i * 2 + 0] - alpha_i * x[i * 2 + 1], | ||||
| alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1], | alpha_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1], | ||||
| x + i * 2, 1, a, 1, NULL, 0); | x + i * 2, 1, a, 1, NULL, 0); | ||||