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