SourceForge has been redesigned. Learn more.
Close

Diff of /src/jrmath/fprec.c [7db48d] .. [c27d88]  Maximize  Restore

Switch to side-by-side view

--- a/src/jrmath/fprec.c
+++ b/src/jrmath/fprec.c
@@ -98,22 +98,22 @@
     if(fabs(l10) < max10e - 2) {
 	p10 = 1.0;
 	if(e10 > max10e) { /* numbers less than 10^(dig-1) * 1e-308 */
-	    p10 =  R_pow_di(10., e10-max10e);
+	    p10 =  JR_pow_di(10., e10-max10e);
 	    e10 = max10e;
 	} 
 	if(e10 > 0) { /* Try always to have pow >= 1
 			 and so exactly representable */
-	    pow10 = R_pow_di(10., e10);
+	    pow10 = JR_pow_di(10., e10);
 	    return(sgn*(R_rint((x*pow10)*p10)/pow10)/p10);
 	} else {
-	    pow10 = R_pow_di(10., -e10);
+	    pow10 = JR_pow_di(10., -e10);
 	    return(sgn*(R_rint((x/pow10))*pow10));
 	}
     } else { /* -- LARGE or small -- */
-	do_round = max10e - l10	 >= R_pow_di(10., -dig);
+	do_round = max10e - l10	 >= JR_pow_di(10., -dig);
 	e2 = dig + ((e10>0)? 1 : -1) * MAX_DIGITS;
-	p10 = R_pow_di(10., e2);	x *= p10;
-	P10 = R_pow_di(10., e10-e2);	x *= P10;
+	p10 = JR_pow_di(10., e2);	x *= p10;
+	P10 = JR_pow_di(10., e10-e2);	x *= P10;
 	/*-- p10 * P10 = 10 ^ e10 */
 	if(do_round) x += 0.5;
 	x = floor(x) / p10;