| @@ -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; | |||
| @@ -518,7 +518,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 15); | |||
| if (i > 0) { | |||
| if (X < posY) { | |||
| a01 += i; | |||
| /* a01 += i; | |||
| a02 += i; | |||
| a03 += i; | |||
| a04 += i; | |||
| @@ -533,7 +533,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| a13 += i; | |||
| a14 += i; | |||
| a15 += i; | |||
| a16 += i; | |||
| a16 += i; */ | |||
| b += 16 * i; | |||
| } else | |||
| if (X > posY) { | |||
| @@ -1130,14 +1130,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 7); | |||
| if (i > 0) { | |||
| if (X < posY) { | |||
| a01 += i; | |||
| /* a01 += i; | |||
| a02 += i; | |||
| a03 += i; | |||
| a04 += i; | |||
| a05 += i; | |||
| a06 += i; | |||
| a07 += i; | |||
| a08 += i; | |||
| a08 += i; */ | |||
| b += 8 * i; | |||
| } else | |||
| if (X > posY) { | |||
| @@ -1156,13 +1156,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b += 8; | |||
| } | |||
| a02 += i * lda; | |||
| /* a02 += i * lda; | |||
| a03 += i * lda; | |||
| a04 += i * lda; | |||
| a05 += i * lda; | |||
| a06 += i * lda; | |||
| a07 += i * lda; | |||
| a08 += i * lda; | |||
| a08 += i * lda; */ | |||
| } else { | |||
| #ifdef UNIT | |||
| b[ 0] = ONE; | |||
| @@ -1371,10 +1371,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 3); | |||
| if (i > 0) { | |||
| if (X < posY) { | |||
| a01 += i; | |||
| /* a01 += i; | |||
| a02 += i; | |||
| a03 += i; | |||
| a04 += i; | |||
| a04 += i; */ | |||
| b += 4 * i; | |||
| } else | |||
| if (X > posY) { | |||
| @@ -1387,9 +1387,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| a01 += lda; | |||
| b += 4; | |||
| } | |||
| a02 += lda; | |||
| /* a02 += lda; | |||
| a03 += lda; | |||
| a04 += lda; | |||
| a04 += lda; */ | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1492,7 +1492,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (X > posY) { | |||
| b[ 0] = *(a01 + 0); | |||
| b[ 1] = *(a01 + 1); | |||
| a01 += lda; | |||
| // a01 += lda; | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1543,7 +1543,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| posY += 1; | |||
| // posY += 1; | |||
| } | |||
| return 0; | |||
| @@ -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; | |||
| } | |||
| } | |||
| @@ -201,18 +201,18 @@ 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; | |||
| } | |||
| if (m & 1) { | |||
| ao1 += 1; | |||
| /* ao1 += 1; | |||
| ao2 += 1; | |||
| ao3 += 1; | |||
| ao4 += 1; | |||
| ao4 += 1; */ | |||
| b += 4; | |||
| } | |||
| @@ -238,7 +238,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 7] = data08; | |||
| ao1 += 2 * lda; | |||
| ao2 += 2 * lda; | |||
| // ao2 += 2 * lda; | |||
| b += 8; | |||
| } | |||
| @@ -253,7 +253,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; | |||
| } | |||
| @@ -401,7 +401,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (i) { | |||
| if (X < posY) { | |||
| ao1 += 2; | |||
| // ao1 += 2; | |||
| b += 2; | |||
| } else | |||
| if (X > posY) { | |||
| @@ -411,7 +411,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 | |||
| @@ -206,7 +206,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; | |||
| @@ -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; | |||