Merge pull request #40 from weshatheleopard/patch-1

You can't have you cake and eat it, too.

Author: ViralBShah

src/k_rem_pio2.c

@@ -1,4 +1,3 @@
-
 /* @(#)k_rem_pio2.c 1.3 95/01/18 */
 /*
  * ====================================================
@@ -311,7 +310,7 @@ __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec)
 
     /* 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=zero;j<=jx;j++) fw += x[j]*f[jx+i-j]; q[i] = fw;
 	}
 
 	jz = jk;
@@ -370,7 +369,7 @@ __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec)
 
 		for(i=jz+1;i<=jz+k;i++) {   /* add q[jz+1] to q[jz+k] */
 		    f[jx+i] = (double) ipio2[jv+i];
-		    for(j=0,fw=0.0;j<=jx;j++) fw += x[j]*f[jx+i-j];
+		    for(j=0,fw=zero;j<=jx;j++) fw += x[j]*f[jx+i-j];
 		    q[i] = fw;
 		}
 		jz += k;
@@ -379,7 +378,7 @@ __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec)
 	}
 
     /* chop off zero terms */
-	if(z==0.0) {
+	if(z==zero) {
 	    jz -= 1; q0 -= 24;
 	    while(iq[jz]==0) { jz--; q0-=24;}
 	} else { /* break z into 24-bit if necessary */
@@ -400,20 +399,20 @@ __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec)
 
     /* compute PIo2[0,...,jp]*q[jz,...,0] */
 	for(i=jz;i>=0;i--) {
-	    for(fw=0.0,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
+	    for(fw=zero,k=0;k<=jp&&k<=jz-i;k++) fw += PIo2[k]*q[i+k];
 	    fq[jz-i] = fw;
 	}
 
     /* compress fq[] into y[] */
 	switch(prec) {
 	    case 0:
-		fw = 0.0;
+		fw = zero;
 		for (i=jz;i>=0;i--) fw += fq[i];
 		y[0] = (ih==0)? fw: -fw; 
 		break;
 	    case 1:
 	    case 2:
-		fw = 0.0;
+		fw = zero;
 		for (i=jz;i>=0;i--) fw += fq[i]; 
 		STRICT_ASSIGN(double,fw,fw);
 		y[0] = (ih==0)? fw: -fw; 
@@ -432,7 +431,7 @@ __kernel_rem_pio2(double *x, double *y, int e0, int nx, int prec)
 		    fq[i]  += fq[i-1]-fw;
 		    fq[i-1] = fw;
 		}
-		for (fw=0.0,i=jz;i>=2;i--) fw += fq[i]; 
+		for (fw=zero,i=jz;i>=2;i--) fw += fq[i]; 
 		if(ih==0) {
 		    y[0] =  fq[0]; y[1] =  fq[1]; y[2] =  fw;
 		} else {