X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fmath%2Fkf_rem_pio2.c;h=1573ca9f629dac4c68e22de930b2d712b5b8e16a;hb=803c68d7933d03aaebda19786b63055d4a6d3d22;hp=261c48129651743ca5b823f7f58deb7922d733f9;hpb=b83876718b1a535ee04ca0351ad57814454ec646;p=fw%2Faltos

diff --git a/src/math/kf_rem_pio2.c b/src/math/kf_rem_pio2.c
index 261c4812..1573ca9f 100644
--- a/src/math/kf_rem_pio2.c
+++ b/src/math/kf_rem_pio2.c
@@ -77,7 +77,8 @@ twon8  =  3.9062500000e-03; /* 0x3b800000 */
 
     /* compute q[0],q[1],...q[jk] */
 	for (i=0;i<=jk;i++) {
-	    for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
+	    for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
+	    q[i] = fw;
 	}
 
 	jz = jk;