@@ -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) { | |||