@@ -518,7 +518,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
518518 i = (m & 15 );
519519 if (i > 0 ) {
520520 if (X < posY ) {
521- a01 += i ;
521+ /* a01 += i;
522522 a02 += i;
523523 a03 += i;
524524 a04 += i;
@@ -533,7 +533,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
533533 a13 += i;
534534 a14 += i;
535535 a15 += i;
536- a16 += i ;
536+ a16 += i; */
537537 b += 16 * i ;
538538 } else
539539 if (X > posY ) {
@@ -1130,14 +1130,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
11301130 i = (m & 7 );
11311131 if (i > 0 ) {
11321132 if (X < posY ) {
1133- a01 += i ;
1133+ /* a01 += i;
11341134 a02 += i;
11351135 a03 += i;
11361136 a04 += i;
11371137 a05 += i;
11381138 a06 += i;
11391139 a07 += i;
1140- a08 += i ;
1140+ a08 += i; */
11411141 b += 8 * i ;
11421142 } else
11431143 if (X > posY ) {
@@ -1156,13 +1156,13 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
11561156 b += 8 ;
11571157 }
11581158
1159- a02 += i * lda ;
1159+ /* a02 += i * lda;
11601160 a03 += i * lda;
11611161 a04 += i * lda;
11621162 a05 += i * lda;
11631163 a06 += i * lda;
11641164 a07 += i * lda;
1165- a08 += i * lda ;
1165+ a08 += i * lda; */
11661166 } else {
11671167#ifdef UNIT
11681168 b [ 0 ] = ONE ;
@@ -1371,10 +1371,10 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
13711371 i = (m & 3 );
13721372 if (i > 0 ) {
13731373 if (X < posY ) {
1374- a01 += i ;
1374+ /* a01 += i;
13751375 a02 += i;
13761376 a03 += i;
1377- a04 += i ;
1377+ a04 += i; */
13781378 b += 4 * i ;
13791379 } else
13801380 if (X > posY ) {
@@ -1387,9 +1387,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
13871387 a01 += lda ;
13881388 b += 4 ;
13891389 }
1390- a02 += lda ;
1390+ /* a02 += lda;
13911391 a03 += lda;
1392- a04 += lda ;
1392+ a04 += lda; */
13931393 } else {
13941394
13951395#ifdef UNIT
@@ -1492,7 +1492,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
14921492 if (X > posY ) {
14931493 b [ 0 ] = * (a01 + 0 );
14941494 b [ 1 ] = * (a01 + 1 );
1495- a01 += lda ;
1495+ // a01 += lda;
14961496 b += 2 ;
14971497 } else {
14981498#ifdef UNIT
@@ -1543,7 +1543,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *a, BLASLONG lda, BLASLONG posX, BLASLON
15431543 i -- ;
15441544 } while (i > 0 );
15451545 }
1546- posY += 1 ;
1546+ // posY += 1;
15471547 }
15481548
15491549 return 0 ;
0 commit comments