Remove warnings from radix5_ditN_cy_dif1.c.

src/radix5_ditN_cy_dif1.c

@@ -37,7 +37,7 @@ int radix5_ditN_cy_dif1(double a[], int n, int nwt, int nwt_bits, double wt0[],
 !   See the documentation in mers_mod_square and radix16_dif_pass for further details on the array
 !   storage scheme, and radix8_ditN_cy_dif1 for details on the reduced-length weights array scheme.
 */
-	int n5,bjmodn0,bjmodn1,bjmodn2,bjmodn3,bjmodn4,i,j,j1,j2,jstart,jhi,iroot,root_incr,k,khi,l,outer;
+	int n5,bjmodn0,bjmodn1,bjmodn2,bjmodn3,bjmodn4,i,j,j1,j2,jstart,jhi,root_incr,k,khi,l,outer;
 	static uint64 psave = 0;
 	static uint32 bw,sw,bjmodnini,p1,p2,p3,p4, nsave = 0;
 	const double one_half[3] = {1.0, 0.5, 0.25};	/* Needed for small-weights-tables scheme */
@@ -145,7 +145,6 @@ int radix5_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
 
@@ -293,8 +292,6 @@ prefetch_p_doubles(addr);
 addr = add0+p4;
 prefetch_p_doubles(addr);
 #endif
-	  iroot += root_incr;		/* increment sincos index.	*/
-
 	  }
 
 	  jstart += nwt;
@@ -323,7 +320,6 @@ prefetch_p_doubles(addr);
 	cy1=cy0;
 	cy0=t1;
 
-	iroot = 0;
 	root_incr = 0;
 	scale = prp_mult = 1;