Eliminate 2-8 dead increments code

diff --git a/kernel/generic/trmm_lncopy_2.c b/kernel/generic/trmm_lncopy_2.c
index ed28b661b031bc1fda3ea12ee91ac88f9ac618cb..616ae2508d1f9ce8035bd126c2c2075aa3037178 100644 (file)
--- a/kernel/generic/trmm_lncopy_2.c
+++ b/kernel/generic/trmm_lncopy_2.c
@@ -121,12 +121,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
          b[ 0] = data01;
          b[ 1] = data03;
 
-         ao1 += 1;
-         ao2 += 1;
+         /* ao1 += 1;
+         ao2 += 1; */
          b += 2;
        } else
          if (X < posY) {
-           ao1 += lda;
+           // ao1 += lda;
            b += 2;
          } else {
 #ifdef UNIT
@@ -141,8 +141,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 0] = data01;
            b[ 1] = data03;
 #endif
-           ao1 += 1;
-           ao2 += 1;
+           /* ao1 += 1;
+           ao2 += 1; */
            b += 2;
          }
       }
@@ -191,7 +191,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } while (i > 0);
       }
 
-      posY += 1;
+      // posY += 1;
   }
 
   return 0;

diff --git a/kernel/generic/trmm_lncopy_8.c b/kernel/generic/trmm_lncopy_8.c
index 8f5fbce873e5d80c5ac6eba3a7a2eb9faa07f78c..69429411ee57ed6b78290d6671964df4939cccad 100644 (file)
--- a/kernel/generic/trmm_lncopy_8.c
+++ b/kernel/generic/trmm_lncopy_8.c
@@ -608,16 +608,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } else
          if (X < posY) {
            if (m & 4) {
-             ao1 += 4 * lda;
+             /* ao1 += 4 * lda;
              ao2 += 4 * lda;
              ao3 += 4 * lda;
-             ao4 += 4 * lda;
+             ao4 += 4 * lda; */
 
              b += 32;
            }
 
            if (m & 2) {
-             ao1 += 2 * lda;
+             // ao1 += 2 * lda;
              b += 16;
            }
 
@@ -1018,7 +1018,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } else
          if (X < posY) {
            if (m & 2) {
-             ao1 += 2 * lda;
+             // ao1 += 2 * lda;
              b += 8;
            }
 

diff --git a/kernel/generic/trmm_ltcopy_2.c b/kernel/generic/trmm_ltcopy_2.c
index e9ad45fa0d9e211e59e0e23f35deb0efc7a3948a..13a3bc53ce5fa38ddbbd5cd94bb38ceb7e141bb4 100644 (file)
--- a/kernel/generic/trmm_ltcopy_2.c
+++ b/kernel/generic/trmm_ltcopy_2.c
@@ -116,8 +116,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
       if (m & 1) {
 
        if (X > posY) {
-         ao1 += 1;
-         ao2 += 1;
+         /* ao1 += 1;
+         ao2 += 1; */
          b += 2;
        } else
          if (X < posY) {
@@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
 
            b[ 0] = data01;
            b[ 1] = data02;
-           ao1 += lda;
+           // ao1 += lda;
            b += 2;
          } else {
 #ifdef UNIT
@@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 0] = data01;
            b[ 1] = data02;
 #endif
-           ao1 += 2;
+           // ao1 += 2;
            b += 2;
          }
       }
@@ -190,7 +190,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } while (i > 0);
       }
 
-      posY += 1;
+      // posY += 1;
   }
 
   return 0;

diff --git a/kernel/generic/trmm_ltcopy_8.c b/kernel/generic/trmm_ltcopy_8.c
index 1012728298d1e6d9caca5185821f46542ca0ac5c..71597d4e518ae7591fffde6501cb3648d375902c 100644 (file)
--- a/kernel/generic/trmm_ltcopy_8.c
+++ b/kernel/generic/trmm_ltcopy_8.c
@@ -443,27 +443,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        if (X > posY) {
 
          if (m & 4) {
-           ao1 += 4;
+           /* ao1 += 4;
            ao2 += 4;
            ao3 += 4;
            ao4 += 4;
            ao5 += 4;
            ao6 += 4;
            ao7 += 4;
-           ao8 += 4;
+           ao8 += 4; */
 
          b += 32;
          }
 
          if (m & 2) {
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
            ao4 += 2;
            ao5 += 2;
            ao6 += 2;
            ao7 += 2;
-           ao8 += 2;
+           ao8 += 2; */
 
            b += 16;
          }
@@ -548,8 +548,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
 
              ao1 += 4 * lda;
              ao2 += 4 * lda;
-             ao3 += 4 * lda;
-             ao4 += 4 * lda;
+             /* ao3 += 4 * lda;
+             ao4 += 4 * lda; */
 
              b += 32;
            }
@@ -964,10 +964,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        if (X > posY) {
 
          if (m & 2) {
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
-           ao4 += 2;
+           ao4 += 2; */
 
            b += 8;
          }

diff --git a/kernel/generic/trmm_uncopy_2.c b/kernel/generic/trmm_uncopy_2.c
index 61303a2ba49b7c40ffe5d14734d0629e29f31ce5..d4f107d668a023160b88639c432692ede0f9b024 100644 (file)
--- a/kernel/generic/trmm_uncopy_2.c
+++ b/kernel/generic/trmm_uncopy_2.c
@@ -122,12 +122,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
          b[ 0] = data01;
          b[ 1] = data03;
 
-         ao1 += 1;
-         ao2 += 1;
+         /* ao1 += 1;
+         ao2 += 1; */
          b += 2;
        } else
          if (X > posY) {
-           ao1 += lda;
+           // ao1 += lda;
            b += 2;
          } else {
 #ifdef UNIT
@@ -142,7 +142,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 0] = data01;
            b[ 1] = data03;
 #endif
-           ao1 += lda;
+           // ao1 += lda;
            b += 2;
          }
       }

diff --git a/kernel/generic/trmm_uncopy_8.c b/kernel/generic/trmm_uncopy_8.c
index ecfefd0416c2c13170370bc620da5202e2cd17d8..d54dae996c21a8f297df2bdb66117d15e01b7718 100644 (file)
--- a/kernel/generic/trmm_uncopy_8.c
+++ b/kernel/generic/trmm_uncopy_8.c
@@ -610,16 +610,16 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } else
          if (X > posY) {
            if (m & 4) {
-             ao1 += 4 * lda;
+             /* ao1 += 4 * lda;
              ao2 += 4 * lda;
              ao3 += 4 * lda;
-             ao4 += 4 * lda;
+             ao4 += 4 * lda; */
 
              b += 32;
            }
 
            if (m & 2) {
-             ao1 += 2 * lda;
+             // ao1 += 2 * lda;
              b += 16;
            }
 
@@ -1019,7 +1019,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } else
          if (X > posY) {
            if (m & 2) {
-             ao1 += 2 * lda;
+             // ao1 += 2 * lda;
              b += 8;
            }
 

diff --git a/kernel/generic/trmm_utcopy_2.c b/kernel/generic/trmm_utcopy_2.c
index ae4a19e327daca9ad2d143bbca536f0b6c139467..efa68162cfdf2ee168cbff1defc25e5fff123082 100644 (file)
--- a/kernel/generic/trmm_utcopy_2.c
+++ b/kernel/generic/trmm_utcopy_2.c
@@ -117,8 +117,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
       if (m & 1) {
 
        if (X < posY) {
-         ao1 += 1;
-         ao2 += 1;
+         /* ao1 += 1;
+         ao2 += 1; */
          b += 2;
        } else
          if (X > posY) {
@@ -127,7 +127,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
 
            b[ 0] = data01;
            b[ 1] = data02;
-           ao1 += lda;
+           // ao1 += lda;
            b += 2;
          } else {
 #ifdef UNIT
@@ -139,7 +139,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 0] = data01;
            b[ 1] = ZERO;
 #endif
-           ao1 += lda;
+           // ao1 += lda;
            b += 2;
          }
       }

diff --git a/kernel/generic/trmm_utcopy_8.c b/kernel/generic/trmm_utcopy_8.c
index 65fee357b88669888294723d67baa19a4ac8186a..63106ac72fe8e0303f73117cb9d6dc2b8ac6743d 100644 (file)
--- a/kernel/generic/trmm_utcopy_8.c
+++ b/kernel/generic/trmm_utcopy_8.c
@@ -501,27 +501,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        if (X < posY) {
 
          if (m & 4) {
-           ao1 += 4;
+           /* ao1 += 4;
            ao2 += 4;
            ao3 += 4;
            ao4 += 4;
            ao5 += 4;
            ao6 += 4;
            ao7 += 4;
-           ao8 += 4;
+           ao8 += 4; */
 
            b += 32;
          }
 
          if (m & 2) {
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
            ao4 += 2;
            ao5 += 2;
            ao6 += 2;
            ao7 += 2;
-           ao8 += 2;
+           ao8 += 2; */
 
            b += 16;
          }
@@ -606,8 +606,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
 
              ao1 += 4 * lda;
              ao2 += 4 * lda;
-             ao3 += 4 * lda;
-             ao4 += 4 * lda;
+             /* ao3 += 4 * lda;
+             ao4 += 4 * lda; */
 
              b += 32;
            }
@@ -1022,10 +1022,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        if (X < posY) {
 
          if (m & 2) {
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
-           ao4 += 2;
+           ao4 += 2; */
 
            b += 8;
          }

diff --git a/kernel/generic/trsm_ltcopy_8.c b/kernel/generic/trsm_ltcopy_8.c
index 35179d1853acedfe0b7eed0aeae449692bbbec3d..58157816117f03355f5ca299f6b9fef15432b580 100644 (file)
--- a/kernel/generic/trsm_ltcopy_8.c
+++ b/kernel/generic/trsm_ltcopy_8.c
@@ -487,8 +487,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
 
       a1 += 4 * lda;
       a2 += 4 * lda;
-      a3 += 4 * lda;
-      a4 += 4 * lda;
+      /* a3 += 4 * lda;
+      a4 += 4 * lda; */
       b += 32;
 
       ii += 4;
@@ -574,7 +574,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       }
 
       a1 += 2 * lda;
-      a2 += 2 * lda;
+      // a2 += 2 * lda;
       b += 16;
 
       ii += 2;
@@ -779,7 +779,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       }
 
       a1 += 2 * lda;
-      a2 += 2 * lda;
+      // a2 += 2 * lda;
       b += 8;
       ii += 2;
     }

diff --git a/kernel/generic/trsm_uncopy_8.c b/kernel/generic/trsm_uncopy_8.c
index 40903d44ff945563a259c3bc2789ba37b2ffbc09..ec71f3f8d97fc4f140799bb65f43fa853409d519 100644 (file)
--- a/kernel/generic/trsm_uncopy_8.c
+++ b/kernel/generic/trsm_uncopy_8.c
@@ -646,7 +646,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  7) = data57;
       }
       b += 8;
-      ii += 1;
+      // ii += 1;
     }
 
     a +=  8 * lda;
@@ -835,7 +835,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  3) = data25;
       }
       b += 4;
-      ii += 1;
+      // ii += 1;
     }
 
     a +=  4 * lda;
@@ -908,7 +908,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  1) = data09;
       }
       b += 2;
-      ii += 1;
+      // ii += 1;
     }
 
     a +=  2 * lda;

diff --git a/kernel/generic/trsm_utcopy_8.c b/kernel/generic/trsm_utcopy_8.c
index 97da66f87dbb2dcc08b861294cc325f7bc9c34fc..47feb597449d07e198f6dbbbc845c4b4b2320ab7 100644 (file)
--- a/kernel/generic/trsm_utcopy_8.c
+++ b/kernel/generic/trsm_utcopy_8.c
@@ -453,8 +453,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
 
       a1 += 4 * lda;
       a2 += 4 * lda;
-      a3 += 4 * lda;
-      a4 += 4 * lda;
+      /* a3 += 4 * lda;
+      a4 += 4 * lda; */
       b += 32;
       ii += 4;
     }
@@ -513,7 +513,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       }
 
       a1 += 2 * lda;
-      a2 += 2 * lda;
+      // a2 += 2 * lda;
       b += 16;
       ii += 2;
     }
@@ -680,7 +680,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       }
 
       a1 += 2 * lda;
-      a2 += 2 * lda;
+      // a2 += 2 * lda;
       b +=  8;
       ii += 2;
     }

diff --git a/kernel/generic/zgemm3m_tcopy_8.c b/kernel/generic/zgemm3m_tcopy_8.c
index fddbdd8cc1bacef579a340af8c90ad40aec340c5..5f7160253f80742fb6d1e5d5ad6c25730536c79e 100644 (file)
--- a/kernel/generic/zgemm3m_tcopy_8.c
+++ b/kernel/generic/zgemm3m_tcopy_8.c
@@ -1044,7 +1044,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda,
        *(b_offset2 +  3) = CMULT(a7,  a8);
 
        a_offset1 += 8;
-       b_offset2 += 4;
+       // b_offset2 += 4;
       }
 
       if (n & 2){
@@ -1057,7 +1057,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda,
        *(b_offset3 +  1) = CMULT(a3,  a4);
 
        a_offset1 += 4;
-       b_offset3 += 2;
+       // b_offset3 += 2;
       }
 
       if (n & 1){

diff --git a/kernel/generic/zgemm_ncopy_4.c b/kernel/generic/zgemm_ncopy_4.c
index 0c2959b5f28d441f19db301fee839bcb65007655..fde96807a2a98acc36a761cc95154445871dac9f 100644 (file)
--- a/kernel/generic/zgemm_ncopy_4.c
+++ b/kernel/generic/zgemm_ncopy_4.c
@@ -225,10 +225,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
        *(boffset +  6) = ctemp07;
        *(boffset +  7) = ctemp08;
 
-       aoffset1 +=  2;
+       /* aoffset1 +=  2;
        aoffset2 +=  2;
        aoffset3 +=  2;
-       aoffset4 +=  2;
+       aoffset4 +=  2; */
        boffset  +=  8;
       }
       j--;
@@ -323,8 +323,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){
       *(boffset +  2) = ctemp03;
       *(boffset +  3) = ctemp04;
 
-      aoffset1 +=  2;
-      aoffset2 +=  2;
+      /* aoffset1 +=  2;
+      aoffset2 +=  2; */
       boffset  +=  4;
     }
   }

diff --git a/kernel/generic/zgemm_tcopy_2.c b/kernel/generic/zgemm_tcopy_2.c
index 70e202b712d18d289dbec7b01a975af1cc56a312..2b12bb7dd98a97d6361e80111ef3675a8658287e 100644 (file)
--- a/kernel/generic/zgemm_tcopy_2.c
+++ b/kernel/generic/zgemm_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/zgemm_tcopy_4.c b/kernel/generic/zgemm_tcopy_4.c
index 969928d803b0023a8b207e7f25f690dd62c200c4..9b02e0eede3443f1b45b37c549f046d18d8b55bb 100644 (file)
--- a/kernel/generic/zgemm_tcopy_4.c
+++ b/kernel/generic/zgemm_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;
       }
@@ -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/ztrmm_lncopy_2.c b/kernel/generic/ztrmm_lncopy_2.c
index c620c78c18bfd6099b069c5209a32112c1a37b04..dcd1f8c07b531319127f566688b468d033a1b279 100644 (file)
--- a/kernel/generic/ztrmm_lncopy_2.c
+++ b/kernel/generic/ztrmm_lncopy_2.c
@@ -148,12 +148,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
          b[ 2] = data03;
          b[ 3] = data04;
 
-         ao1 += 2;
-         ao2 += 2;
+         /* ao1 += 2;
+         ao2 += 2; */
          b += 4;
        } else
          if (X < posY) {
-           ao1 += lda;
+           // ao1 += lda;
            b += 4;
          } else {
 #ifdef UNIT
@@ -224,7 +224,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } while (i > 0);
       }
 
-      posY += 1;
+      // posY += 1;
   }
   return 0;
 }

diff --git a/kernel/generic/ztrmm_lncopy_4.c b/kernel/generic/ztrmm_lncopy_4.c
index 5442105c505297a0ed25c0ef539918e4fd8ea48a..7cb562ba38e7153de25e610e3b3a3a26c2f722c3 100644 (file)
--- a/kernel/generic/ztrmm_lncopy_4.c
+++ b/kernel/generic/ztrmm_lncopy_4.c
@@ -355,23 +355,23 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 6] = data25;
            b[ 7] = data26;
 
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
-           ao4 += 2;
+           ao4 += 2; */
            b += 8;
          }
 
        } else
          if (X < posY) {
            if (m & 2) {
-             ao1 += 2 * lda;
-             ao2 += 2 * lda;
+             /* ao1 += 2 * lda;
+             ao2 += 2 * lda; */
              b += 16;
            }
 
            if (m & 1) {
-             ao1 += lda;
+             // ao1 += lda;
              b += 8;
            }
 
@@ -586,12 +586,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 2] = data09;
            b[ 3] = data10;
 
-           ao1 += 2;
-           ao2 += 2;
+           /* ao1 += 2;
+           ao2 += 2; */
            b += 4;
        } else
          if (X < posY) {
-           ao1 += lda;
+           // ao1 += lda;
            b += 4;
          } else {
 #ifdef UNIT
@@ -657,7 +657,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } while (i > 0);
       }
 
-      posY += 1;
+      // posY += 1;
   }
 
   return 0;

diff --git a/kernel/generic/ztrmm_ltcopy_2.c b/kernel/generic/ztrmm_ltcopy_2.c
index 457890ceb198aaac5ded8ab2c24a6a739cbd8cb2..deb675f73327b983b54546ecc77116c54c8bb0b3 100644 (file)
--- a/kernel/generic/ztrmm_ltcopy_2.c
+++ b/kernel/generic/ztrmm_ltcopy_2.c
@@ -141,8 +141,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
       if (m & 1) {
 
        if (X > posY) {
-         ao1 += 2;
-         ao2 += 2;
+         /* ao1 += 2;
+         ao2 += 2; */
          b += 4;
 
        } else
@@ -157,7 +157,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 2] = data3;
            b[ 3] = data4;
 
-           ao1 += lda;
+           // ao1 += lda;
            b += 4;
          } else {
 #ifdef UNIT
@@ -233,7 +233,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } while (i > 0);
       }
 
-      posY += 1;
+      // posY += 1;
   }
 
   return 0;

diff --git a/kernel/generic/ztrmm_ltcopy_4.c b/kernel/generic/ztrmm_ltcopy_4.c
index 42a809ba4922ae950a7380f26fa72503147d1b63..246a82641f426972269857c320f7a0cac7ac4d53 100644 (file)
--- a/kernel/generic/ztrmm_ltcopy_4.c
+++ b/kernel/generic/ztrmm_ltcopy_4.c
@@ -292,18 +292,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        if (X > posY) {
 
          if (m & 2) {
-           ao1 += 4;
+           /* ao1 += 4;
            ao2 += 4;
            ao3 += 4;
-           ao4 += 4;
+           ao4 += 4; */
            b += 16;
          }
 
          if (m & 1) {
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
-           ao4 += 2;
+           ao4 += 2; */
            b += 8;
          }
 
@@ -347,7 +347,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
              b[15] = data16;
 
              ao1 += 2 * lda;
-             ao2 += 2 * lda;
+             // ao2 += 2 * lda;
 
              b += 16;
            }
@@ -371,7 +371,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
              b[ 6] = data07;
              b[ 7] = data08;
 
-             ao1 += lda;
+             // ao1 += lda;
              b += 8;
            }
 
@@ -588,8 +588,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
       if (i) {
 
        if (X > posY) {
-         ao1 += 2;
-         ao2 += 2;
+         /* ao1 += 2;
+         ao2 += 2; */
 
          b += 4;
        } else
@@ -604,7 +604,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 2] = data03;
            b[ 3] = data04;
 
-           ao1 += lda;
+           // ao1 += lda;
            b += 4;
 
          } else {
@@ -678,7 +678,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        } while (i > 0);
       }
 
-      posY += 1;
+      // posY += 1;
   }
 
   return 0;

diff --git a/kernel/generic/ztrmm_uncopy_2.c b/kernel/generic/ztrmm_uncopy_2.c
index c2521d3c35a53fe066f5eed90c4e7ca28de283d6..5cb0ffc5419f81e1b7e7d7accbfd913e7b36e69f 100644 (file)
--- a/kernel/generic/ztrmm_uncopy_2.c
+++ b/kernel/generic/ztrmm_uncopy_2.c
@@ -153,12 +153,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
          b[ 2] = data03;
          b[ 3] = data04;
 
-         ao1 += 2;
-         ao2 += 2;
+         /* ao1 += 2;
+         ao2 += 2; */
          b += 4;
        } else
          if (X > posY) {
-           ao1 += lda;
+           // ao1 += lda;
            b += 4;
          } else {
 #ifdef UNIT

diff --git a/kernel/generic/ztrmm_uncopy_4.c b/kernel/generic/ztrmm_uncopy_4.c
index 249faac1d8f2661e38ee87f811e407f062e95662..e282bd1c76b584d5417cf0558daea89c248a3a8c 100644 (file)
--- a/kernel/generic/ztrmm_uncopy_4.c
+++ b/kernel/generic/ztrmm_uncopy_4.c
@@ -354,23 +354,23 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 6] = data25;
            b[ 7] = data26;
 
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
-           ao4 += 2;
+           ao4 += 2; */
            b += 8;
          }
 
        } else
          if (X > posY) {
            if (m & 2) {
-             ao1 += 2 * lda;
-             ao2 += 2 * lda;
+             /* ao1 += 2 * lda;
+             ao2 += 2 * lda; */
              b   += 16;
            }
 
            if (m & 1) {
-             ao1 += lda;
+             // ao1 += lda;
              b += 8;
            }
 
@@ -596,13 +596,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 1] = data02;
            b[ 2] = data09;
            b[ 3] = data10;
-           ao1 += 2;
-           ao2 += 2;
+           /* ao1 += 2;
+           ao2 += 2; */
            b += 4;
        } else
          if (X > posY) {
-           ao1 += 2 * lda;
-           ao2 += 2 * lda;
+           /* ao1 += 2 * lda;
+           ao2 += 2 * lda; */
            b += 4;
          } else {
 #ifdef UNIT
@@ -624,8 +624,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 2] = data09;
            b[ 3] = data10;
 #endif
-           ao1 += 2;
-           ao2 += 2;
+           /* ao1 += 2;
+           ao2 += 2; */
            b += 4;
          }
       }

diff --git a/kernel/generic/ztrmm_utcopy_2.c b/kernel/generic/ztrmm_utcopy_2.c
index 840821e16de573a92b7401817bc8730fe12111eb..6c7288ae924a66f5f23ad4a6da003a6ddee2e2b1 100644 (file)
--- a/kernel/generic/ztrmm_utcopy_2.c
+++ b/kernel/generic/ztrmm_utcopy_2.c
@@ -142,8 +142,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
 
       if (m & 1) {
        if (X < posY) {
-         ao1 += 2;
-         ao2 += 2;
+         /* ao1 += 2;
+         ao2 += 2; */
          b += 4;
        } else
          if (X > posY) {
@@ -157,7 +157,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
            b[ 2] = data3;
            b[ 3] = data4;
 
-           ao1 += lda;
+           // ao1 += lda;
            b += 4;
 
          } else {

diff --git a/kernel/generic/ztrmm_utcopy_4.c b/kernel/generic/ztrmm_utcopy_4.c
index 9a5c8c36238021304e47d791261f30f7460dc45a..e6b89e7bf98e38a57f5def9030857715463696a7 100644 (file)
--- a/kernel/generic/ztrmm_utcopy_4.c
+++ b/kernel/generic/ztrmm_utcopy_4.c
@@ -294,18 +294,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
        if (X < posY) {
 
          if (m & 2) {
-           ao1 += 4;
+           /* ao1 += 4;
            ao2 += 4;
            ao3 += 4;
-           ao4 += 4;
+           ao4 += 4; */
            b += 16;
          }
 
          if (m & 1) {
-           ao1 += 2;
+           /* ao1 += 2;
            ao2 += 2;
            ao3 += 2;
-           ao4 += 2;
+           ao4 += 2; */
            b += 8;
          }
 
@@ -349,7 +349,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
              b[15] = data16;
 
              ao1 += 2 * lda;
-             ao2 += 2 * lda;
+             // ao2 += 2 * lda;
              b   += 16;
            }
 
@@ -372,7 +372,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
              b[ 6] = data07;
              b[ 7] = data08;
 
-             ao1 += lda;
+             // ao1 += lda;
              b += 8;
            }
 

diff --git a/kernel/generic/ztrsm_lncopy_4.c b/kernel/generic/ztrsm_lncopy_4.c
index 2ad05401aa31b9ece141750de56b555d960d6642..2a1302e53ab1ba3e21df35e0eb3fb5762f648859 100644 (file)
--- a/kernel/generic/ztrsm_lncopy_4.c
+++ b/kernel/generic/ztrsm_lncopy_4.c
@@ -313,13 +313,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  7) = data26;
      }
 
-      a1 += 2;
+      /* a1 += 2;
       a2 += 2;
       a3 += 2;
-      a4 += 2;
+      a4 += 2; */
       b +=  8;
 
-      ii += 1;
+      // ii += 1;
     }
     a += 4 * lda;
     jj += 4;
@@ -410,11 +410,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  3) = data10;
      }
 
-      a1 += 2;
-      a2 += 2;
+      /* a1 += 2;
+      a2 += 2; */
       b +=  4;
 
-      ii += 1;
+      // ii += 1;
     }
     a += 2 * lda;
     jj += 2;
@@ -451,8 +451,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       ii += 1;
     }
 
-    a += lda;
-    jj += 1;
+    // a += lda;
+    // jj += 1;
   }
 
   return 0;

diff --git a/kernel/generic/ztrsm_ltcopy_4.c b/kernel/generic/ztrsm_ltcopy_4.c
index c1152710e91a74aacde7f4b28e4cc4446bccf053..be28ba646896ff59861188525ac4afdac86720be 100644 (file)
--- a/kernel/generic/ztrsm_ltcopy_4.c
+++ b/kernel/generic/ztrsm_ltcopy_4.c
@@ -286,7 +286,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       }
 
       a1 += 2 * lda;
-      a2 += 2 * lda;
+      // a2 += 2 * lda;
       b += 16;
 
       ii += 2;
@@ -335,9 +335,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  7) = data08;
       }
 
-      a1 += lda;
+      // a1 += lda;
       b += 8;
-      ii += 1;
+      // ii += 1;
     }
 
     a  += 8;
@@ -430,9 +430,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  3) = data04;
       }
 
-      a1 += lda;
+      // a1 += lda;
       b += 4;
-      ii += 1;
+      // ii += 1;
     }
 
     a  += 4;
@@ -471,8 +471,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       ii += 1;
     }
 
-    a  += 2;
-    jj += 1;
+    // a  += 2;
+    // jj += 1;
   }
 
   return 0;

diff --git a/kernel/generic/ztrsm_uncopy_4.c b/kernel/generic/ztrsm_uncopy_4.c
index 9d0e2438dbc82b25233ef8143a3778cd0cb40073..fe33e41c7771ec9c9901be26f15546f77a8d9f52 100644 (file)
--- a/kernel/generic/ztrsm_uncopy_4.c
+++ b/kernel/generic/ztrsm_uncopy_4.c
@@ -344,13 +344,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  7) = data26;
       }
 
-      a1 += 2;
+      /* a1 += 2;
       a2 += 2;
       a3 += 2;
-      a4 += 2;
+      a4 += 2; */
       b +=  8;
 
-      ii += 1;
+      // ii += 1;
     }
 
     a += 4 * lda;
@@ -444,11 +444,11 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  3) = data10;
       }
 
-      a1 += 2;
-      a2 += 2;
+      /* a1 += 2;
+      a2 += 2; */
       b +=  4;
 
-      ii += 1;
+      // ii += 1;
     }
 
     a += 2 *lda;
@@ -488,8 +488,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       ii += 1;
     }
 
-    a += lda;
-    jj += 1;
+    // a += lda;
+    // jj += 1;
   }
 
   return 0;

diff --git a/kernel/generic/ztrsm_utcopy_4.c b/kernel/generic/ztrsm_utcopy_4.c
index f19badd33b58ebacf616377b2af045e3b4a01c78..b419f6b90a5664125ae88ffff11bedd73cf92b2f 100644 (file)
--- a/kernel/generic/ztrsm_utcopy_4.c
+++ b/kernel/generic/ztrsm_utcopy_4.c
@@ -266,7 +266,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       }
 
       a1 += 2 * lda;
-      a2 += 2 * lda;
+      // a2 += 2 * lda;
       b += 16;
 
       ii += 2;
@@ -303,10 +303,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  7) = data08;
       }
 
-      a1 += lda;
+      // a1 += lda;
       b  += 8;
 
-      ii += 1;
+      // ii += 1;
     }
 
     a  += 8;
@@ -394,10 +394,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
        *(b +  3) = data04;
       }
 
-      a1 += lda;
+      // a1 += lda;
       b  += 4;
 
-      ii += 1;
+      // ii += 1;
     }
 
     a  += 4;
@@ -436,8 +436,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT
       ii += 1;
     }
 
-    a  += 2;
-    jj += 1;
+    // a  += 2;
+    // jj += 1;
   }
 
   return 0;