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