diff --git a/kernel/generic/laswp_ncopy_8.c b/kernel/generic/laswp_ncopy_8.c index bb7408c61..ae4acc1e7 100644 --- a/kernel/generic/laswp_ncopy_8.c +++ b/kernel/generic/laswp_ncopy_8.c @@ -288,7 +288,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint i++; } while (i <= k2); - a += lda; + // a += lda; } return 0; diff --git a/kernel/generic/neg_tcopy_16.c b/kernel/generic/neg_tcopy_16.c index a93372abe..757000b57 100644 --- a/kernel/generic/neg_tcopy_16.c +++ b/kernel/generic/neg_tcopy_16.c @@ -379,7 +379,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ ctemp01 = *(aoffset1 + 0); *(boffset + 0) = -ctemp01; - boffset += 1; + // boffset += 1; } } diff --git a/kernel/generic/neg_tcopy_8.c b/kernel/generic/neg_tcopy_8.c index a45ecc7d4..5a092591e 100644 --- a/kernel/generic/neg_tcopy_8.c +++ b/kernel/generic/neg_tcopy_8.c @@ -719,10 +719,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (m & 1){ aoffset1 = aoffset; - aoffset += lda; + // aoffset += lda; boffset1 = boffset; - boffset += 8; + // boffset += 8; i = (n >> 3); if (i > 0){ @@ -762,7 +762,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 1) = -ctemp02; *(boffset2 + 2) = -ctemp03; *(boffset2 + 3) = -ctemp04; - boffset2 += 4; + // boffset2 += 4; } if (n & 2){ @@ -772,7 +772,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 0) = -ctemp01; *(boffset3 + 1) = -ctemp02; - boffset3 += 2; + // boffset3 += 2; } if (n & 1){ diff --git a/kernel/generic/zlaswp_ncopy_2.c b/kernel/generic/zlaswp_ncopy_2.c index d02a788b3..407821a2f 100644 --- a/kernel/generic/zlaswp_ncopy_2.c +++ b/kernel/generic/zlaswp_ncopy_2.c @@ -372,7 +372,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b1 + 0) = A1; *(b1 + 1) = A2; } - buffer += 2; + // buffer += 2; } } diff --git a/kernel/generic/zlaswp_ncopy_4.c b/kernel/generic/zlaswp_ncopy_4.c index b79166692..192494b07 100644 --- a/kernel/generic/zlaswp_ncopy_4.c +++ b/kernel/generic/zlaswp_ncopy_4.c @@ -702,7 +702,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint *(b1 + 0) = A1; *(b1 + 1) = A2; } - buffer += 2; + // buffer += 2; } } diff --git a/kernel/generic/zneg_tcopy_2.c b/kernel/generic/zneg_tcopy_2.c index 074f2f1fb..680bc74f6 100644 --- a/kernel/generic/zneg_tcopy_2.c +++ b/kernel/generic/zneg_tcopy_2.c @@ -140,7 +140,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(b_offset1 + 6) = -ctemp11; *(b_offset1 + 7) = -ctemp12; - b_offset1 += m * 4; + // b_offset1 += m * 4; a_offset1 += 4; a_offset2 += 4; } @@ -204,7 +204,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(b_offset + 2) = -ctemp3; *(b_offset + 3) = -ctemp4; - b_offset += m * 4; + // b_offset += m * 4; a_offset += 4; } diff --git a/kernel/generic/zneg_tcopy_4.c b/kernel/generic/zneg_tcopy_4.c index cfdd23bfd..a643b87b1 100644 --- a/kernel/generic/zneg_tcopy_4.c +++ b/kernel/generic/zneg_tcopy_4.c @@ -233,10 +233,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 6) = -ctemp07; *(boffset3 + 7) = -ctemp08; - aoffset1 += 2; + /* aoffset1 += 2; aoffset2 += 2; aoffset3 += 2; - aoffset4 += 2; + aoffset4 += 2; */ boffset3 += 8; } @@ -293,8 +293,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ aoffset1 += 8; aoffset2 += 8; - aoffset3 += 8; - aoffset4 += 8; + /* aoffset3 += 8; + aoffset4 += 8; */ boffset1 += m * 8; i --; @@ -338,8 +338,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset3 + 2) = -ctemp03; *(boffset3 + 3) = -ctemp04; - aoffset1 += 2; - aoffset2 += 2; + /* aoffset1 += 2; + aoffset2 += 2; */ boffset3 += 4; } } @@ -387,7 +387,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset2 + 3) = -ctemp04; aoffset1 += 4; - boffset2 += 4; + // boffset2 += 4; } if (n & 1){ diff --git a/kernel/generic/zneg_tcopy_8.c b/kernel/generic/zneg_tcopy_8.c index cb1a62d60..c2846b4f1 100644 --- a/kernel/generic/zneg_tcopy_8.c +++ b/kernel/generic/zneg_tcopy_8.c @@ -324,7 +324,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ if (n & 1){ aoffset1 = aoffset; aoffset2 = aoffset + lda; - aoffset += 2; + // aoffset += 2; i = (m >> 1); if (i > 0){ @@ -353,7 +353,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ *(boffset + 0) = -ctemp01; *(boffset + 1) = -ctemp02; - boffset += 2; + // boffset += 2; } } diff --git a/lapack/getrf/getrf_single.c b/lapack/getrf/getrf_single.c index 581feeb2e..865c51bb5 100644 --- a/lapack/getrf/getrf_single.c +++ b/lapack/getrf/getrf_single.c @@ -51,7 +51,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, BLASLONG jjs, min_jj; blasint *ipiv, iinfo, info; BLASLONG jb, mn, blocking; - FLOAT *a, *offsetA, *offsetB; + FLOAT *a, *offsetA; //, *offsetB; BLASLONG range_N[2]; FLOAT *sbb; @@ -99,7 +99,7 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, if (jb > blocking) jb = blocking; offsetA = a + j * lda * COMPSIZE; - offsetB = a + (j + jb) * lda * COMPSIZE; + // offsetB = a + (j + jb) * lda * COMPSIZE; range_N[0] = offset + j; range_N[1] = offset + j + jb; diff --git a/lapack/trti2/ztrti2_L.c b/lapack/trti2/ztrti2_L.c index 819bff261..98ea2128d 100644 --- a/lapack/trti2/ztrti2_L.c +++ b/lapack/trti2/ztrti2_L.c @@ -67,8 +67,6 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (j = n - 1; j >= 0; j--) { - ajj_r = ONE; - ajj_i = ZERO; #ifndef UNIT ajj_r = *(a + (j + j * lda) * COMPSIZE + 0); @@ -88,6 +86,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, *(a + (j + j * lda) * COMPSIZE + 0) = ajj_r; *(a + (j + j * lda) * COMPSIZE + 1) = ajj_i; +#else + ajj_r = ONE; + ajj_i = ZERO; #endif ZTRMV (n - j - 1, diff --git a/lapack/trti2/ztrti2_U.c b/lapack/trti2/ztrti2_U.c index 972329acd..3dac56c3f 100644 --- a/lapack/trti2/ztrti2_U.c +++ b/lapack/trti2/ztrti2_U.c @@ -67,8 +67,6 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, for (j = 0; j < n; j++) { - ajj_r = ONE; - ajj_i = ZERO; #ifndef UNIT ajj_r = *(a + (j + j * lda) * COMPSIZE + 0); @@ -89,6 +87,9 @@ blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, *(a + (j + j * lda) * COMPSIZE + 0) = ajj_r; *(a + (j + j * lda) * COMPSIZE + 1) = ajj_i; +#else + ajj_r = ONE; + ajj_i = ZERO; #endif ZTRMV (j,