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