diff --git a/interface/zsyr.c b/interface/zsyr.c index b68237c93..71d4dbf29 100644 --- a/interface/zsyr.c +++ b/interface/zsyr.c @@ -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 (incx == 1 && incy == 1 && n < 50) { + if (incx == 1 && n < 50) { blasint i; if (!uplo) { 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 { for (i = 0; i < n; i++){ 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_i * x[i * 2 + 0] + alpha_r * x[i * 2 + 1], x + i * 2, 1, a, 1, NULL, 0);