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