diff --git a/interface/zspr.c b/interface/zspr.c index 339ad801d8..27f0055a93 100644 --- a/interface/zspr.c +++ b/interface/zspr.c @@ -117,7 +117,7 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FUNCTION_PROFILE_START(); - if (incx < 0 ) x -= (n - 1) * incx; + if (incx < 0 ) x -= (n - 1) * incx * COMPSIZE; buffer = (FLOAT *)blas_memory_alloc(1); if (!buffer) { diff --git a/interface/zspr2.c b/interface/zspr2.c index 74a1b24676..40707e7352 100644 --- a/interface/zspr2.c +++ b/interface/zspr2.c @@ -119,8 +119,8 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FUNCTION_PROFILE_START(); - if (incx < 0 ) x -= (n - 1) * incx; - if (incy < 0 ) y -= (n - 1) * incy; + if (incx < 0 ) x -= (n - 1) * incx * COMPSIZE; + if (incy < 0 ) y -= (n - 1) * incy * COMPSIZE; buffer = (FLOAT *)blas_memory_alloc(1); if (!buffer) { diff --git a/interface/zsyr2.c b/interface/zsyr2.c index c892fc43e7..336d0a507a 100644 --- a/interface/zsyr2.c +++ b/interface/zsyr2.c @@ -121,8 +121,8 @@ void NAME(char *UPLO, blasint *N, FLOAT *ALPHA, FUNCTION_PROFILE_START(); - if (incx < 0 ) x -= (n - 1) * incx; - if (incy < 0 ) y -= (n - 1) * incy; + if (incx < 0 ) x -= (n - 1) * incx * COMPSIZE; + if (incy < 0 ) y -= (n - 1) * incy * COMPSIZE; buffer = (FLOAT *)blas_memory_alloc(1); if (!buffer) {