| @@ -120,30 +120,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| ao2 += 1; */ | |||
| b += 2; | |||
| } else | |||
| #ifdef UNIT | |||
| if (X < posY) { | |||
| data01 = *(ao1 + 0); | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| // ao1 += lda; | |||
| b += 2; | |||
| } else { | |||
| #endif | |||
| b[ 0] = *(ao1 + 0); | |||
| #ifdef UNIT | |||
| data02 = *(ao1 + 1); | |||
| } else { | |||
| b[ 0] = ONE; | |||
| b[ 1] = data02; | |||
| #else | |||
| data01 = *(ao1 + 0); | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| #endif | |||
| // ao1 += 2; | |||
| b += 2; | |||
| } | |||
| #endif | |||
| b[ 1] = *(ao1 + 1); | |||
| b += 2; | |||
| } | |||
| posY += 2; | |||
| @@ -410,36 +410,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = (m & 1); | |||
| if (i) { | |||
| if (X > posY) { | |||
| /* ao1 += 1; | |||
| ao2 += 1; */ | |||
| b += 2; | |||
| } else | |||
| if (X < posY) { | |||
| data01 = *(ao1 + 0); | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| // ao1 += lda; | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = ONE; | |||
| b[ 1] = data02; | |||
| #else | |||
| data01 = *(ao1 + 0); | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| if (X < posY) { | |||
| #endif | |||
| b += 2; | |||
| } | |||
| b[ 0] = *(ao1 + 0); | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| } | |||
| #endif | |||
| b[ 1] = *(ao1 + 1); | |||
| b += 2; | |||
| } | |||
| posY += 2; | |||
| } | |||
| @@ -1487,23 +1487,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (X < posY) { | |||
| a01 ++; | |||
| a02 ++; | |||
| b += 2; | |||
| } else | |||
| } else { | |||
| #ifdef UNIT | |||
| if (X > posY) { | |||
| #endif | |||
| b[ 0] = *(a01 + 0); | |||
| b[ 1] = *(a01 + 1); | |||
| // a01 += lda; | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| b[ 1] = *(a01 + 1); | |||
| #else | |||
| b[ 0] = *(a01 + 0); | |||
| b[ 1] = *(a01 + 1); | |||
| #endif | |||
| b += 2; | |||
| } | |||
| #endif | |||
| b[ 1] = *(a01 + 1); | |||
| } | |||
| b += 2; | |||
| } | |||
| posY += 2; | |||
| } | |||
| @@ -1522,25 +1518,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| if (i > 0) { | |||
| do { | |||
| if (X < posY) { | |||
| a01 += 1; | |||
| b ++; | |||
| } else | |||
| a01 ++; | |||
| } else { | |||
| #ifdef UNIT | |||
| if (X > posY) { | |||
| #endif | |||
| b[ 0] = *(a01 + 0); | |||
| a01 += lda; | |||
| b ++; | |||
| } else { | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| #else | |||
| b[ 0] = *(a01 + 0); | |||
| #endif | |||
| a01 += lda; | |||
| b ++; | |||
| } | |||
| X += 1; | |||
| i --; | |||
| #endif | |||
| a01 += lda; | |||
| } | |||
| b ++; | |||
| X ++; | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| // posY += 1; | |||
| @@ -161,27 +161,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| i = m; | |||
| if (m > 0) { | |||
| do { | |||
| if (X < posY) { | |||
| b += 1; | |||
| ao1 += 1; | |||
| } else | |||
| if (X > posY) { | |||
| data01 = *(ao1 + 0); | |||
| b[ 0] = data01; | |||
| b += 1; | |||
| ao1 += lda; | |||
| } else { | |||
| #ifdef UNIT | |||
| b[ 0] = ONE; | |||
| #else | |||
| data01 = *(ao1 + 0); | |||
| b[ 0] = data01; | |||
| if (X > posY) { | |||
| #endif | |||
| b += 1; | |||
| ao1 += lda; | |||
| } | |||
| X += 1; | |||
| b[ 0] = *(ao1 + 0); | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| } | |||
| #endif | |||
| b ++; | |||
| ao1 += lda; | |||
| X ++; | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| @@ -443,26 +443,21 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| do { | |||
| if (X < posY) { | |||
| b += 1; | |||
| ao1 += 1; | |||
| } else | |||
| } else { | |||
| #ifdef UNIT | |||
| if (X > posY) { | |||
| data01 = *(ao1 + 0); | |||
| b[ 0] = data01; | |||
| ao1 += lda; | |||
| b += 1; | |||
| } else { | |||
| #endif | |||
| b[ 0] = *(ao1 + 0); | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| #else | |||
| data01 = *(ao1 + 0); | |||
| b[ 0] = data01; | |||
| #endif | |||
| ao1 += lda; | |||
| b += 1; | |||
| } | |||
| X += 1; | |||
| #endif | |||
| ao1 += lda; | |||
| } | |||
| b ++; | |||
| X ++; | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| @@ -139,48 +139,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| } | |||
| if (m & 1) { | |||
| if (X > posY) { | |||
| /* ao1 += 2; | |||
| ao2 += 2; */ | |||
| b += 4; | |||
| } else | |||
| #ifdef UNIT | |||
| if (X < posY) { | |||
| data1 = *(ao1 + 0); | |||
| data2 = *(ao1 + 1); | |||
| data3 = *(ao1 + 2); | |||
| data4 = *(ao1 + 3); | |||
| b[ 0] = data1; | |||
| b[ 1] = data2; | |||
| b[ 2] = data3; | |||
| b[ 3] = data4; | |||
| // ao1 += lda; | |||
| b += 4; | |||
| } else { | |||
| #endif | |||
| b[ 0] = *(ao1 + 0); | |||
| b[ 1] = *(ao1 + 1); | |||
| #ifdef UNIT | |||
| data3 = *(ao1 + 2); | |||
| data4 = *(ao1 + 3); | |||
| } else { | |||
| b[ 0] = ONE; | |||
| b[ 1] = ZERO; | |||
| b[ 2] = data3; | |||
| b[ 3] = data4; | |||
| #else | |||
| data1 = *(ao1 + 0); | |||
| data2 = *(ao1 + 1); | |||
| data3 = *(ao1 + 2); | |||
| data4 = *(ao1 + 3); | |||
| b[ 0] = data1; | |||
| b[ 1] = data2; | |||
| b[ 2] = data3; | |||
| b[ 3] = data4; | |||
| #endif | |||
| b += 4; | |||
| } | |||
| #endif | |||
| b += 4; | |||
| } | |||
| posY += 2; | |||
| @@ -44,7 +44,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| BLASLONG i, js; | |||
| BLASLONG X; | |||
| FLOAT data01, data02; | |||
| // FLOAT data01, data02; | |||
| FLOAT *ao1; | |||
| lda += lda; | |||
| @@ -65,30 +65,21 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| do { | |||
| if (X < posY) { | |||
| ao1 += 2; | |||
| b += 2; | |||
| } else | |||
| } else { | |||
| #ifdef UNIT | |||
| if (X > posY) { | |||
| data01 = *(ao1 + 0); | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| ao1 += lda; | |||
| b += 2; | |||
| } else { | |||
| #endif | |||
| b[ 0] = *(ao1 + 0); | |||
| b[ 1] = *(ao1 + 1); | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| b[ 1] = ZERO; | |||
| #else | |||
| data01 = *(ao1 + 0); | |||
| data02 = *(ao1 + 1); | |||
| b[ 0] = data01; | |||
| b[ 1] = data02; | |||
| #endif | |||
| ao1 += lda; | |||
| b += 2; | |||
| } | |||
| #endif | |||
| ao1 += lda; | |||
| } | |||
| b += 2; | |||
| X ++; | |||
| i --; | |||
| } while (i > 0); | |||
| @@ -203,33 +203,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| do { | |||
| if (X < posY) { | |||
| ao1 += 2; | |||
| b += 2; | |||
| } else | |||
| } else { | |||
| #ifdef UNIT | |||
| if (X > posY) { | |||
| data1 = *(ao1 + 0); | |||
| data2 = *(ao1 + 1); | |||
| b[ 0] = data1; | |||
| b[ 1] = data2; | |||
| ao1 += lda; | |||
| b += 2; | |||
| } else { | |||
| #endif | |||
| b[ 0] = *(ao1 + 0); | |||
| b[ 1] = *(ao1 + 1); | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| b[ 1] = ZERO; | |||
| #else | |||
| data1 = *(ao1 + 0); | |||
| data2 = *(ao1 + 1); | |||
| b[ 0] = data1; | |||
| b[ 1] = data2; | |||
| #endif | |||
| ao1 += lda; | |||
| b += 2; | |||
| } | |||
| X += 1; | |||
| #endif | |||
| ao1 += lda; | |||
| } | |||
| b += 2; | |||
| X ++; | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||
| @@ -856,25 +856,22 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||
| do { | |||
| if (X < posY) { | |||
| a01 += 2; | |||
| b += 2; | |||
| } else | |||
| } else { | |||
| #ifdef UNIT | |||
| if (X > posY) { | |||
| #endif | |||
| b[ 0] = *(a01 + 0); | |||
| b[ 1] = *(a01 + 1); | |||
| a01 += lda; | |||
| b += 2; | |||
| } else { | |||
| #ifdef UNIT | |||
| } else { | |||
| b[ 0] = ONE; | |||
| b[ 1] = ZERO; | |||
| #else | |||
| b[ 0] = *(a01 + 0); | |||
| b[ 1] = *(a01 + 1); | |||
| #endif | |||
| a01 += lda; | |||
| b += 2; | |||
| } | |||
| X += 1; | |||
| #endif | |||
| a01 += lda; | |||
| } | |||
| b += 2; | |||
| X ++; | |||
| i --; | |||
| } while (i > 0); | |||
| } | |||