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