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