| @@ -429,7 +429,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ | |||
| ctemp01 = *(aoffset1 + 0); | |||
| *(boffset + 0) = ctemp01; | |||
| boffset += 1; | |||
| // boffset += 1; | |||
| } | |||
| } | |||
| @@ -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; | |||
| } | |||
| } | |||
| @@ -556,7 +556,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X < posY) { | |||
| a01 += i * lda; | |||
| /* a01 += i * lda; | |||
| a02 += i * lda; | |||
| a03 += i * lda; | |||
| a04 += i * lda; | |||
| @@ -571,7 +571,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| a13 += i * lda; | |||
| a14 += i * lda; | |||
| a15 += i * lda; | |||
| a16 += i * lda; | |||
| a16 += i * lda; */ | |||
| b += 16 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1147,14 +1147,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X < posY) { | |||
| a01 += i * lda; | |||
| /* a01 += 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; */ | |||
| b += 8 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1380,10 +1380,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X < posY) { | |||
| a01 += i * lda; | |||
| /* a01 += i * lda; | |||
| a02 += i * lda; | |||
| a03 += i * lda; | |||
| a04 += i * lda; | |||
| a04 += i * lda; */ | |||
| b += 4 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1488,8 +1488,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b += 2; | |||
| } else | |||
| if (X < posY) { | |||
| a01 += lda; | |||
| a02 += lda; | |||
| /* a01 += lda; | |||
| a02 += lda; */ | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -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) { | |||
| @@ -1128,14 +1128,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) { | |||
| @@ -1368,10 +1368,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) { | |||
| @@ -1490,8 +1490,8 @@ 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; | |||
| a02 += lda; | |||
| /* a01 += lda; | |||
| a02 += lda; */ | |||
| b += 2; | |||
| } | |||
| } else { | |||
| @@ -1540,7 +1540,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| posY += 1; | |||
| // posY += 1; | |||
| } | |||
| return 0; | |||
| @@ -556,7 +556,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X > posY) { | |||
| a01 += i * lda; | |||
| /* a01 += i * lda; | |||
| a02 += i * lda; | |||
| a03 += i * lda; | |||
| a04 += i * lda; | |||
| @@ -571,7 +571,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| a13 += i * lda; | |||
| a14 += i * lda; | |||
| a15 += i * lda; | |||
| a16 += i * lda; | |||
| a16 += i * lda; */ | |||
| b += 16 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1147,14 +1147,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X > posY) { | |||
| a01 += i * lda; | |||
| /* a01 += 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; */ | |||
| b += 8 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1379,10 +1379,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X > posY) { | |||
| a01 += i * lda; | |||
| /* a01 += i * lda; | |||
| a02 += i * lda; | |||
| a03 += i * lda; | |||
| a04 += i * lda; | |||
| a04 += i * lda; */ | |||
| b += 4 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -1488,8 +1488,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b += 2; | |||
| } else | |||
| if (X > posY) { | |||
| a01 += lda; | |||
| a02 += lda; | |||
| /* a01 += lda; | |||
| a02 += lda; */ | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -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; | |||