| @@ -719,10 +719,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ | |||
| if (m & 1){ | |||
| aoffset1 = aoffset; | |||
| aoffset += lda; | |||
| // aoffset += lda; | |||
| boffset1 = boffset; | |||
| boffset += 8; | |||
| // boffset += 8; | |||
| i = (n >> 3); | |||
| if (i > 0){ | |||
| @@ -762,7 +762,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ | |||
| *(boffset2 + 1) = ctemp02; | |||
| *(boffset2 + 2) = ctemp03; | |||
| *(boffset2 + 3) = ctemp04; | |||
| boffset2 += 4; | |||
| // boffset2 += 4; | |||
| } | |||
| if (n & 2){ | |||
| @@ -772,7 +772,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ | |||
| *(boffset3 + 0) = ctemp01; | |||
| *(boffset3 + 1) = ctemp02; | |||
| boffset3 += 2; | |||
| // boffset3 += 2; | |||
| } | |||
| if (n & 1){ | |||
| @@ -237,24 +237,24 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 2] = data03; | |||
| b[ 3] = data04; | |||
| ao1 += 1; | |||
| /* ao1 += 1; | |||
| ao2 += 1; | |||
| ao3 += 1; | |||
| ao4 += 1; | |||
| ao4 += 1; */ | |||
| b += 4; | |||
| } | |||
| } else | |||
| if (X < posY) { | |||
| if (m & 2) { | |||
| ao1 += 2 * lda; | |||
| ao2 += 2 * lda; | |||
| /* ao1 += 2 * lda; | |||
| ao2 += 2 * lda; */ | |||
| b += 8; | |||
| } | |||
| if (m & 1) { | |||
| ao1 += lda; | |||
| // ao1 += lda; | |||
| b += 4; | |||
| } | |||
| @@ -414,12 +414,12 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| ao1 += 1; | |||
| ao2 += 1; | |||
| /* ao1 += 1; | |||
| ao2 += 1; */ | |||
| b += 2; | |||
| } else | |||
| if (X < posY) { | |||
| ao1 += lda; | |||
| // ao1 += lda; | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -477,7 +477,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } while (i > 0); | |||
| } | |||
| posY += 1; | |||
| // posY += 1; | |||
| } | |||
| return 0; | |||
| @@ -204,18 +204,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; | |||
| } | |||
| @@ -241,7 +241,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; | |||
| } | |||
| @@ -257,7 +257,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; | |||
| } | |||
| @@ -412,8 +412,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (i) { | |||
| if (X > posY) { | |||
| ao1 += 1; | |||
| ao2 += 1; | |||
| /* ao1 += 1; | |||
| ao2 += 1; */ | |||
| b += 2; | |||
| } else | |||
| @@ -423,7 +423,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 | |||
| @@ -481,7 +481,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } while (i > 0); | |||
| } | |||
| posY += 1; | |||
| // posY += 1; | |||
| } | |||
| return 0; | |||
| @@ -241,23 +241,23 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 2] = data05; | |||
| b[ 3] = data07; | |||
| ao1 += 1; | |||
| /* ao1 += 1; | |||
| ao2 += 1; | |||
| ao3 += 1; | |||
| ao4 += 1; | |||
| ao4 += 1; */ | |||
| b += 4; | |||
| } | |||
| } else | |||
| if (X > posY) { | |||
| if (m & 2) { | |||
| ao1 += 2 * lda; | |||
| ao2 += 2 * lda; | |||
| /* ao1 += 2 * lda; | |||
| ao2 += 2 * lda; */ | |||
| b += 8; | |||
| } | |||
| if (m & 1) { | |||
| ao1 += lda; | |||
| // ao1 += lda; | |||
| b += 4; | |||
| } | |||
| @@ -418,13 +418,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 0] = data01; | |||
| b[ 1] = data05; | |||
| ao1 += 1; | |||
| ao2 += 1; | |||
| /* ao1 += 1; | |||
| ao2 += 1; */ | |||
| b += 2; | |||
| } else | |||
| if (X > posY) { | |||
| ao1 += lda; | |||
| ao2 += lda; | |||
| /* ao1 += lda; | |||
| ao2 += lda; */ | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -438,8 +438,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 0] = data01; | |||
| b[ 1] = data05; | |||
| #endif | |||
| ao1 += lda; | |||
| ao2 += lda; | |||
| /* ao1 += lda; | |||
| ao2 += 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; | |||
| @@ -194,7 +194,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; | |||
| @@ -324,7 +324,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ | |||
| if (n & 1){ | |||
| aoffset1 = aoffset; | |||
| aoffset2 = aoffset + lda; | |||
| aoffset += 2; | |||
| // aoffset += 2; | |||
| i = (m >> 1); | |||
| if (i > 0){ | |||
| @@ -353,7 +353,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, FLOAT *b){ | |||
| *(boffset + 0) = ctemp01; | |||
| *(boffset + 1) = ctemp02; | |||
| boffset += 2; | |||
| // boffset += 2; | |||
| } | |||
| } | |||
| @@ -350,14 +350,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X < posY) { | |||
| ao1 += i * lda; | |||
| /* ao1 += i * lda; | |||
| ao2 += i * lda; | |||
| ao3 += i * lda; | |||
| ao4 += i * lda; | |||
| ao5 += i * lda; | |||
| ao6 += i * lda; | |||
| ao7 += i * lda; | |||
| ao8 += i * lda; | |||
| ao8 += i * lda; */ | |||
| b += 16 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -675,10 +675,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X < posY) { | |||
| ao1 += i * lda; | |||
| /* ao1 += i * lda; | |||
| ao2 += i * lda; | |||
| ao3 += i * lda; | |||
| ao4 += i * lda; | |||
| ao4 += i * lda; */ | |||
| b += 8 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -804,13 +804,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 1] = *(ao1 + 1); | |||
| b[ 2] = *(ao2 + 0); | |||
| b[ 3] = *(ao2 + 1); | |||
| 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 | |||
| @@ -317,14 +317,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 7); | |||
| if (i > 0) { | |||
| if (X > posY) { | |||
| a01 += 2 * i; | |||
| /* a01 += 2 * i; | |||
| a02 += 2 * i; | |||
| a03 += 2 * i; | |||
| a04 += 2 * i; | |||
| a05 += 2 * i; | |||
| a06 += 2 * i; | |||
| a07 += 2 * i; | |||
| a08 += 2 * i; | |||
| a08 += 2 * i; */ | |||
| b += 16 * i; | |||
| } else | |||
| if (X < posY) { | |||
| @@ -661,10 +661,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 3); | |||
| if (i > 0) { | |||
| if (X > posY) { | |||
| a01 += 2 * i; | |||
| /* a01 += 2 * i; | |||
| a02 += 2 * i; | |||
| a03 += 2 * i; | |||
| a04 += 2 * i; | |||
| a04 += 2 * i; */ | |||
| b += 8 * i; | |||
| } else | |||
| if (X < posY) { | |||
| @@ -802,8 +802,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 1); | |||
| if (i > 0) { | |||
| if (X > posY) { | |||
| a01 += 2; | |||
| a02 += 2; | |||
| /* a01 += 2; | |||
| a02 += 2; */ | |||
| b += 4; | |||
| } else | |||
| if (X < posY) { | |||
| @@ -812,8 +812,8 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 2] = *(a01 + 2); | |||
| b[ 3] = *(a01 + 3); | |||
| a01 += lda; | |||
| a02 += lda; | |||
| /* a01 += lda; | |||
| a02 += lda; */ | |||
| b += 4; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -869,7 +869,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| posY += 1; | |||
| // posY += 1; | |||
| } | |||
| return 0; | |||
| @@ -350,14 +350,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X > posY) { | |||
| ao1 += i * lda; | |||
| /* ao1 += i * lda; | |||
| ao2 += i * lda; | |||
| ao3 += i * lda; | |||
| ao4 += i * lda; | |||
| ao5 += i * lda; | |||
| ao6 += i * lda; | |||
| ao7 += i * lda; | |||
| ao8 += i * lda; | |||
| ao8 += i * lda; */ | |||
| b += 16 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -677,10 +677,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| } else | |||
| if (X > posY) { | |||
| ao1 += i * lda; | |||
| /* ao1 += i * lda; | |||
| ao2 += i * lda; | |||
| ao3 += i * lda; | |||
| ao4 += i * lda; | |||
| ao4 += i * lda; */ | |||
| b += 8 * i; | |||
| } else { | |||
| #ifdef UNIT | |||
| @@ -807,13 +807,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| b[ 1] = *(ao1 + 1); | |||
| b[ 2] = *(ao2 + 0); | |||
| b[ 3] = *(ao2 + 1); | |||
| 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 | |||
| @@ -320,14 +320,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (X < posY) { | |||
| a01 += 2 * i; | |||
| /* a01 += 2 * i; | |||
| a02 += 2 * i; | |||
| a03 += 2 * i; | |||
| a04 += 2 * i; | |||
| a05 += 2 * i; | |||
| a06 += 2 * i; | |||
| a07 += 2 * i; | |||
| a08 += 2 * i; | |||
| a08 += 2 * i; */ | |||
| b += 16 * i; | |||
| } else | |||
| if (X > posY) { | |||
| @@ -664,10 +664,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (i) { | |||
| if (X < posY) { | |||
| a01 += 2 * i; | |||
| /* a01 += 2 * i; | |||
| a02 += 2 * i; | |||
| a03 += 2 * i; | |||
| a04 += 2 * i; | |||
| a04 += 2 * i; */ | |||
| b += 8 * i; | |||
| } else | |||
| if (X > posY) { | |||