Remove warnings from radix7_ditN_cy_dif1.c.

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;