@@ -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); | |||
} | |||