Lines Matching refs:xr
39 mpfr_t c, xr;
83 mpfr_init (xr);
100 mpfr_set_prec (xr, m);
103 mpfr_remainder (xr, x, c, MPFR_RNDN);
105 |xr - x - 2kPi| <= 2^(2-m). Thus we can decide the sign
106 of sin(x) if xr is at distance at least 2^(2-m) of both
110 it suffices to check that c - |xr| >= 2^(2-m). */
111 if (MPFR_SIGN (xr) > 0)
112 mpfr_sub (c, c, xr, MPFR_RNDZ);
114 mpfr_add (c, c, xr, MPFR_RNDZ);
115 if (MPFR_IS_ZERO(xr)
116 || MPFR_EXP(xr) < (mpfr_exp_t) 3 - (mpfr_exp_t) m
120 /* |xr - x - 2kPi| <= 2^(2-m), thus |sin(xr) - sin(x)| <= 2^(2-m) */
121 xx = xr;
176 mpfr_clear (xr);