| @@ -116,8 +116,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| if (m & 1) { | if (m & 1) { | ||||
| if (X > posY) { | if (X > posY) { | ||||
| ao1 += 1; | |||||
| ao2 += 1; | |||||
| /* ao1 += 1; | |||||
| ao2 += 1; */ | |||||
| b += 2; | b += 2; | ||||
| } else | } else | ||||
| if (X < posY) { | if (X < posY) { | ||||
| @@ -126,7 +126,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 0] = data01; | b[ 0] = data01; | ||||
| b[ 1] = data02; | b[ 1] = data02; | ||||
| ao1 += lda; | |||||
| // ao1 += lda; | |||||
| b += 2; | b += 2; | ||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| @@ -141,7 +141,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 0] = data01; | b[ 0] = data01; | ||||
| b[ 1] = data02; | b[ 1] = data02; | ||||
| #endif | #endif | ||||
| ao1 += 2; | |||||
| // ao1 += 2; | |||||
| b += 2; | b += 2; | ||||
| } | } | ||||
| } | } | ||||
| @@ -190,7 +190,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| } while (i > 0); | } while (i > 0); | ||||
| } | } | ||||
| posY += 1; | |||||
| // posY += 1; | |||||
| } | } | ||||
| return 0; | return 0; | ||||
| @@ -518,7 +518,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| i = (m & 15); | i = (m & 15); | ||||
| if (i > 0) { | if (i > 0) { | ||||
| if (X < posY) { | if (X < posY) { | ||||
| a01 += i; | |||||
| /* a01 += i; | |||||
| a02 += i; | a02 += i; | ||||
| a03 += i; | a03 += i; | ||||
| a04 += i; | a04 += i; | ||||
| @@ -533,7 +533,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| a13 += i; | a13 += i; | ||||
| a14 += i; | a14 += i; | ||||
| a15 += i; | a15 += i; | ||||
| a16 += i; | |||||
| a16 += i; */ | |||||
| b += 16 * i; | b += 16 * i; | ||||
| } else | } else | ||||
| if (X > posY) { | if (X > posY) { | ||||
| @@ -1130,14 +1130,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| i = (m & 7); | i = (m & 7); | ||||
| if (i > 0) { | if (i > 0) { | ||||
| if (X < posY) { | if (X < posY) { | ||||
| a01 += i; | |||||
| /* a01 += i; | |||||
| a02 += i; | a02 += i; | ||||
| a03 += i; | a03 += i; | ||||
| a04 += i; | a04 += i; | ||||
| a05 += i; | a05 += i; | ||||
| a06 += i; | a06 += i; | ||||
| a07 += i; | a07 += i; | ||||
| a08 += i; | |||||
| a08 += i; */ | |||||
| b += 8 * i; | b += 8 * i; | ||||
| } else | } else | ||||
| if (X > posY) { | if (X > posY) { | ||||
| @@ -1156,13 +1156,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b += 8; | b += 8; | ||||
| } | } | ||||
| a02 += i * lda; | |||||
| /* a02 += i * lda; | |||||
| a03 += i * lda; | a03 += i * lda; | ||||
| a04 += i * lda; | a04 += i * lda; | ||||
| a05 += i * lda; | a05 += i * lda; | ||||
| a06 += i * lda; | a06 += i * lda; | ||||
| a07 += i * lda; | a07 += i * lda; | ||||
| a08 += i * lda; | |||||
| a08 += i * lda; */ | |||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| b[ 0] = ONE; | b[ 0] = ONE; | ||||
| @@ -1371,10 +1371,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| i = (m & 3); | i = (m & 3); | ||||
| if (i > 0) { | if (i > 0) { | ||||
| if (X < posY) { | if (X < posY) { | ||||
| a01 += i; | |||||
| /* a01 += i; | |||||
| a02 += i; | a02 += i; | ||||
| a03 += i; | a03 += i; | ||||
| a04 += i; | |||||
| a04 += i; */ | |||||
| b += 4 * i; | b += 4 * i; | ||||
| } else | } else | ||||
| if (X > posY) { | if (X > posY) { | ||||
| @@ -1387,9 +1387,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| a01 += lda; | a01 += lda; | ||||
| b += 4; | b += 4; | ||||
| } | } | ||||
| a02 += lda; | |||||
| /* a02 += lda; | |||||
| a03 += lda; | a03 += lda; | ||||
| a04 += lda; | |||||
| a04 += lda; */ | |||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| @@ -1492,7 +1492,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| if (X > posY) { | if (X > posY) { | ||||
| b[ 0] = *(a01 + 0); | b[ 0] = *(a01 + 0); | ||||
| b[ 1] = *(a01 + 1); | b[ 1] = *(a01 + 1); | ||||
| a01 += lda; | |||||
| // a01 += lda; | |||||
| b += 2; | b += 2; | ||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| @@ -1543,7 +1543,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| i --; | i --; | ||||
| } while (i > 0); | } while (i > 0); | ||||
| } | } | ||||
| posY += 1; | |||||
| // posY += 1; | |||||
| } | } | ||||
| return 0; | return 0; | ||||
| @@ -117,8 +117,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| if (m & 1) { | if (m & 1) { | ||||
| if (X < posY) { | if (X < posY) { | ||||
| ao1 += 1; | |||||
| ao2 += 1; | |||||
| /* ao1 += 1; | |||||
| ao2 += 1; */ | |||||
| b += 2; | b += 2; | ||||
| } else | } else | ||||
| if (X > posY) { | if (X > posY) { | ||||
| @@ -127,7 +127,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 0] = data01; | b[ 0] = data01; | ||||
| b[ 1] = data02; | b[ 1] = data02; | ||||
| ao1 += lda; | |||||
| // ao1 += lda; | |||||
| b += 2; | b += 2; | ||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| @@ -139,7 +139,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 0] = data01; | b[ 0] = data01; | ||||
| b[ 1] = ZERO; | b[ 1] = ZERO; | ||||
| #endif | #endif | ||||
| ao1 += lda; | |||||
| // ao1 += lda; | |||||
| b += 2; | b += 2; | ||||
| } | } | ||||
| } | } | ||||
| @@ -201,18 +201,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| if (X < posY) { | if (X < posY) { | ||||
| if (m & 2) { | if (m & 2) { | ||||
| ao1 += 2; | |||||
| /* ao1 += 2; | |||||
| ao2 += 2; | ao2 += 2; | ||||
| ao3 += 2; | ao3 += 2; | ||||
| ao4 += 2; | |||||
| ao4 += 2; */ | |||||
| b += 8; | b += 8; | ||||
| } | } | ||||
| if (m & 1) { | if (m & 1) { | ||||
| ao1 += 1; | |||||
| /* ao1 += 1; | |||||
| ao2 += 1; | ao2 += 1; | ||||
| ao3 += 1; | ao3 += 1; | ||||
| ao4 += 1; | |||||
| ao4 += 1; */ | |||||
| b += 4; | b += 4; | ||||
| } | } | ||||
| @@ -238,7 +238,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 7] = data08; | b[ 7] = data08; | ||||
| ao1 += 2 * lda; | ao1 += 2 * lda; | ||||
| ao2 += 2 * lda; | |||||
| // ao2 += 2 * lda; | |||||
| b += 8; | b += 8; | ||||
| } | } | ||||
| @@ -253,7 +253,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 2] = data03; | b[ 2] = data03; | ||||
| b[ 3] = data04; | b[ 3] = data04; | ||||
| ao1 += lda; | |||||
| // ao1 += lda; | |||||
| b += 4; | b += 4; | ||||
| } | } | ||||
| @@ -401,7 +401,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| if (i) { | if (i) { | ||||
| if (X < posY) { | if (X < posY) { | ||||
| ao1 += 2; | |||||
| // ao1 += 2; | |||||
| b += 2; | b += 2; | ||||
| } else | } else | ||||
| if (X > posY) { | if (X > posY) { | ||||
| @@ -411,7 +411,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 0] = data01; | b[ 0] = data01; | ||||
| b[ 1] = data02; | b[ 1] = data02; | ||||
| ao1 += lda; | |||||
| // ao1 += lda; | |||||
| b += 2; | b += 2; | ||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| @@ -206,7 +206,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT | |||||
| } | } | ||||
| a1 += 2 * lda; | a1 += 2 * lda; | ||||
| a2 += 2 * lda; | |||||
| // a2 += 2 * lda; | |||||
| b += 8; | b += 8; | ||||
| ii += 2; | ii += 2; | ||||
| @@ -141,8 +141,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| if (m & 1) { | if (m & 1) { | ||||
| if (X > posY) { | if (X > posY) { | ||||
| ao1 += 2; | |||||
| ao2 += 2; | |||||
| /* ao1 += 2; | |||||
| ao2 += 2; */ | |||||
| b += 4; | b += 4; | ||||
| } else | } else | ||||
| @@ -157,7 +157,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| b[ 2] = data3; | b[ 2] = data3; | ||||
| b[ 3] = data4; | b[ 3] = data4; | ||||
| ao1 += lda; | |||||
| // ao1 += lda; | |||||
| b += 4; | b += 4; | ||||
| } else { | } else { | ||||
| #ifdef UNIT | #ifdef UNIT | ||||
| @@ -233,7 +233,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
| } while (i > 0); | } while (i > 0); | ||||
| } | } | ||||
| posY += 1; | |||||
| // posY += 1; | |||||
| } | } | ||||
| return 0; | return 0; | ||||