@@ -635,7 +635,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data05 = *(ao1 + 4); | data05 = *(ao1 + 4); | ||||
data06 = *(ao1 + 5); | data06 = *(ao1 + 5); | ||||
data07 = *(ao1 + 6); | data07 = *(ao1 + 6); | ||||
data08 = *(ao1 + 7); | |||||
// data08 = *(ao1 + 7); | |||||
if (i >= 2) { | if (i >= 2) { | ||||
#ifndef UNIT | #ifndef UNIT | ||||
@@ -646,7 +646,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data13 = *(ao2 + 4); | data13 = *(ao2 + 4); | ||||
data14 = *(ao2 + 5); | data14 = *(ao2 + 5); | ||||
data15 = *(ao2 + 6); | data15 = *(ao2 + 6); | ||||
data16 = *(ao2 + 7); | |||||
// data16 = *(ao2 + 7); | |||||
} | } | ||||
if (i >= 3) { | if (i >= 3) { | ||||
@@ -657,7 +657,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data21 = *(ao3 + 4); | data21 = *(ao3 + 4); | ||||
data22 = *(ao3 + 5); | data22 = *(ao3 + 5); | ||||
data23 = *(ao3 + 6); | data23 = *(ao3 + 6); | ||||
data24 = *(ao3 + 7); | |||||
// data24 = *(ao3 + 7); | |||||
} | } | ||||
if (i >= 4) { | if (i >= 4) { | ||||
@@ -667,7 +667,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data29 = *(ao4 + 4); | data29 = *(ao4 + 4); | ||||
data30 = *(ao4 + 5); | data30 = *(ao4 + 5); | ||||
data31 = *(ao4 + 6); | data31 = *(ao4 + 6); | ||||
data32 = *(ao4 + 7); | |||||
// data32 = *(ao4 + 7); | |||||
} | } | ||||
if (i >= 5) { | if (i >= 5) { | ||||
@@ -676,7 +676,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
#endif | #endif | ||||
data38 = *(ao5 + 5); | data38 = *(ao5 + 5); | ||||
data39 = *(ao5 + 6); | data39 = *(ao5 + 6); | ||||
data40 = *(ao5 + 7); | |||||
// data40 = *(ao5 + 7); | |||||
} | } | ||||
if (i >= 6) { | if (i >= 6) { | ||||
@@ -684,14 +684,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data46 = *(ao6 + 5); | data46 = *(ao6 + 5); | ||||
#endif | #endif | ||||
data47 = *(ao6 + 6); | data47 = *(ao6 + 6); | ||||
data48 = *(ao6 + 7); | |||||
// data48 = *(ao6 + 7); | |||||
} | } | ||||
if (i >= 7) { | if (i >= 7) { | ||||
#ifndef UNIT | #ifndef UNIT | ||||
data55 = *(ao7 + 6); | data55 = *(ao7 + 6); | ||||
#endif | #endif | ||||
data56 = *(ao7 + 7); | |||||
// data56 = *(ao7 + 7); | |||||
} | } | ||||
#ifdef UNIT | #ifdef UNIT | ||||
@@ -1032,14 +1032,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
#endif | #endif | ||||
data02 = *(ao1 + 1); | data02 = *(ao1 + 1); | ||||
data03 = *(ao1 + 2); | data03 = *(ao1 + 2); | ||||
data04 = *(ao1 + 3); | |||||
// data04 = *(ao1 + 3); | |||||
if (i >= 2) { | if (i >= 2) { | ||||
#ifndef UNIT | #ifndef UNIT | ||||
data10 = *(ao2 + 1); | data10 = *(ao2 + 1); | ||||
#endif | #endif | ||||
data11 = *(ao2 + 2); | data11 = *(ao2 + 2); | ||||
data12 = *(ao2 + 3); | |||||
// data12 = *(ao2 + 3); | |||||
} | } | ||||
@@ -1047,7 +1047,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
#ifndef UNIT | #ifndef UNIT | ||||
data19 = *(ao3 + 2); | data19 = *(ao3 + 2); | ||||
#endif | #endif | ||||
data20 = *(ao3 + 3); | |||||
// data20 = *(ao3 + 3); | |||||
} | } | ||||
#ifdef UNIT | #ifdef UNIT | ||||
@@ -685,7 +685,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data33 = *(ao5 + 0); | data33 = *(ao5 + 0); | ||||
data41 = *(ao6 + 0); | data41 = *(ao6 + 0); | ||||
data49 = *(ao7 + 0); | data49 = *(ao7 + 0); | ||||
data57 = *(ao8 + 0); | |||||
// data57 = *(ao8 + 0); | |||||
if (i >= 2) { | if (i >= 2) { | ||||
#ifndef UNIT | #ifndef UNIT | ||||
@@ -696,7 +696,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data34 = *(ao5 + 1); | data34 = *(ao5 + 1); | ||||
data42 = *(ao6 + 1); | data42 = *(ao6 + 1); | ||||
data50 = *(ao7 + 1); | data50 = *(ao7 + 1); | ||||
data58 = *(ao8 + 1); | |||||
// data58 = *(ao8 + 1); | |||||
} | } | ||||
if (i >= 3) { | if (i >= 3) { | ||||
@@ -707,7 +707,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data35 = *(ao5 + 2); | data35 = *(ao5 + 2); | ||||
data43 = *(ao6 + 2); | data43 = *(ao6 + 2); | ||||
data51 = *(ao7 + 2); | data51 = *(ao7 + 2); | ||||
data59 = *(ao8 + 2); | |||||
// data59 = *(ao8 + 2); | |||||
} | } | ||||
if (i >= 4) { | if (i >= 4) { | ||||
@@ -717,7 +717,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data36 = *(ao5 + 3); | data36 = *(ao5 + 3); | ||||
data44 = *(ao6 + 3); | data44 = *(ao6 + 3); | ||||
data52 = *(ao7 + 3); | data52 = *(ao7 + 3); | ||||
data60 = *(ao8 + 3); | |||||
// data60 = *(ao8 + 3); | |||||
} | } | ||||
if (i >= 5) { | if (i >= 5) { | ||||
@@ -726,7 +726,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
#endif | #endif | ||||
data45 = *(ao6 + 4); | data45 = *(ao6 + 4); | ||||
data53 = *(ao7 + 4); | data53 = *(ao7 + 4); | ||||
data61 = *(ao8 + 4); | |||||
// data61 = *(ao8 + 4); | |||||
} | } | ||||
if (i >= 6) { | if (i >= 6) { | ||||
@@ -734,14 +734,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
data46 = *(ao6 + 5); | data46 = *(ao6 + 5); | ||||
#endif | #endif | ||||
data54 = *(ao7 + 5); | data54 = *(ao7 + 5); | ||||
data62 = *(ao8 + 5); | |||||
// data62 = *(ao8 + 5); | |||||
} | } | ||||
if (i >= 7) { | if (i >= 7) { | ||||
#ifndef UNIT | #ifndef UNIT | ||||
data55 = *(ao7 + 6); | data55 = *(ao7 + 6); | ||||
#endif | #endif | ||||
data63 = *(ao8 + 6); | |||||
// data63 = *(ao8 + 6); | |||||
} | } | ||||
#ifdef UNIT | #ifdef UNIT | ||||
@@ -1074,27 +1074,27 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON | |||||
} | } | ||||
} else { | } else { | ||||
#ifndef UNIT | |||||
/* #ifndef UNIT | |||||
data01 = *(ao1 + 0); | data01 = *(ao1 + 0); | ||||
#endif | |||||
#endif */ | |||||
data09 = *(ao2 + 0); | data09 = *(ao2 + 0); | ||||
data17 = *(ao3 + 0); | data17 = *(ao3 + 0); | ||||
data25 = *(ao4 + 0); | |||||
// data25 = *(ao4 + 0); | |||||
if (i >= 2) { | if (i >= 2) { | ||||
#ifndef UNIT | |||||
/* #ifndef UNIT | |||||
data10 = *(ao2 + 1); | data10 = *(ao2 + 1); | ||||
#endif | |||||
#endif */ | |||||
data18 = *(ao3 + 1); | data18 = *(ao3 + 1); | ||||
data26 = *(ao4 + 1); | |||||
// data26 = *(ao4 + 1); | |||||
} | } | ||||
if (i >= 3) { | |||||
/* if (i >= 3) { | |||||
#ifndef UNIT | #ifndef UNIT | ||||
data19 = *(ao3 + 2); | data19 = *(ao3 + 2); | ||||
#endif | #endif | ||||
data27 = *(ao4 + 2); | data27 = *(ao4 + 2); | ||||
} | |||||
} */ | |||||
#ifndef UNIT | #ifndef UNIT | ||||
b[ 0] = ONE; | b[ 0] = ONE; | ||||
@@ -628,13 +628,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT | |||||
if (ii < jj) { | if (ii < jj) { | ||||
data01 = *(a1 + 0); | data01 = *(a1 + 0); | ||||
data02 = *(a1 + 1); | |||||
// data02 = *(a1 + 1); | |||||
data09 = *(a2 + 0); | data09 = *(a2 + 0); | ||||
data10 = *(a2 + 1); | |||||
// data10 = *(a2 + 1); | |||||
data17 = *(a3 + 0); | data17 = *(a3 + 0); | ||||
data18 = *(a3 + 1); | |||||
// data18 = *(a3 + 1); | |||||
data25 = *(a4 + 0); | data25 = *(a4 + 0); | ||||
data26 = *(a4 + 1); | |||||
// data26 = *(a4 + 1); | |||||
*(b + 0) = data01; | *(b + 0) = data01; | ||||
*(b + 1) = data09; | *(b + 1) = data09; | ||||
@@ -649,14 +649,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG offset, FLOAT | |||||
if (m & 2) { | if (m & 2) { | ||||
if (ii == jj) { | if (ii == jj) { | ||||
#ifndef UNIT | |||||
/* #ifndef UNIT | |||||
data01 = *(a1 + 0); | data01 = *(a1 + 0); | ||||
#endif | #endif | ||||
data09 = *(a2 + 0); | data09 = *(a2 + 0); | ||||
#ifndef UNIT | #ifndef UNIT | ||||
data10 = *(a2 + 1); | data10 = *(a2 + 1); | ||||
#endif | |||||
#endif */ | |||||
} | } | ||||
if (ii > jj) { | if (ii > jj) { | ||||
@@ -281,8 +281,8 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, FLOAT *a, BLASLO | |||||
if ( n2 & 1 ) | if ( n2 & 1 ) | ||||
{ | { | ||||
dgemv_kernel_4x1(NB,a_ptr,x_ptr,ybuffer,&alpha); | dgemv_kernel_4x1(NB,a_ptr,x_ptr,ybuffer,&alpha); | ||||
a_ptr += lda; | |||||
x_ptr += 1; | |||||
/* a_ptr += lda; | |||||
x_ptr += 1; */ | |||||
} | } | ||||
@@ -393,9 +393,9 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG dummy1, FLOAT alpha, FLOAT *a, BLASLO | |||||
{ | { | ||||
dgemv_kernel_4x1(NB,a_ptr,xbuffer,ybuffer); | dgemv_kernel_4x1(NB,a_ptr,xbuffer,ybuffer); | ||||
a_ptr += lda; | |||||
// a_ptr += lda; | |||||
*y_ptr += ybuffer[0] * alpha; | *y_ptr += ybuffer[0] * alpha; | ||||
y_ptr += inc_y; | |||||
// y_ptr += inc_y; | |||||
} | } | ||||
a += NB; | a += NB; | ||||