From 5f30ab9152b808480304111ee724b92189b14bb2 Mon Sep 17 00:00:00 2001 From: Laurent Desnogues Date: Sun, 4 Aug 2024 15:54:13 +0200 Subject: [PATCH] Remove warnings from radix7_ditN_cy_dif1.c. --- src/radix7_ditN_cy_dif1.c | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/radix7_ditN_cy_dif1.c b/src/radix7_ditN_cy_dif1.c index 40ad49b6..65f6bc53 100755 --- a/src/radix7_ditN_cy_dif1.c +++ b/src/radix7_ditN_cy_dif1.c @@ -38,7 +38,7 @@ int radix7_ditN_cy_dif1(double a[], int n, int nwt, int nwt_bits, double wt0[], ! storage scheme, and radix8_ditN_cy_dif1 for details on the reduced-length weights array scheme. */ int n7,bjmodn0,bjmodn1,bjmodn2,bjmodn3,bjmodn4,bjmodn5,bjmodn6 - ,i,j,j1,j2,jstart,jhi,iroot,root_incr,k1,k2,k,khi,l,outer; + ,i,j,j1,j2,jstart,jhi,root_incr,k1,k2,k,khi,l,outer; static uint64 psave = 0; static uint32 bw,sw,bjmodnini,p1,p2,p3,p4,p5,p6, nsave = 0; const double one_half[3] = {1.0, 0.5, 0.25}; /* Needed for small-weights-tables scheme */ @@ -186,7 +186,6 @@ int radix7_ditN_cy_dif1(double a[], int n, int nwt, int nwt_bits, double wt0[], *fracmax=0; /* init max. fractional error */ - iroot = 0; /* init sincos array index */ root_incr = 1; /* init sincos array index increment (set = 1 for normal carry pass, = 0 for wrapper pass) */ scale = n2inv; // init inverse-weight scale factor = 2/n for normal carry pass, 1 for wrapper pass @@ -479,9 +478,6 @@ prefetch_p_doubles(addr); a[j1+p5] =t3+t10; a[j1+p5+1] =t4-t9; a[j1+p6] =t1+t8; a[j1+p6+1] =t2-t7; #endif /* endif #LO_ADD */ - - iroot += root_incr; /* increment sincos index. */ - } if(MODULUS_TYPE == MODULUS_TYPE_MERSENNE) @@ -531,7 +527,6 @@ printf("carries = %10d %10d %10d %10d %10d %10d %10d\n",(int)cy_r0,(int)cy_r1,(i cy_r0 = -t2; cy_i0 = +t1; } - iroot = 0; root_incr = 0; scale = prp_mult = 1;