From 5bd7aef7971df1929222d93b437d9392b935c1ff Mon Sep 17 00:00:00 2001 From: vlefevre Date: Thu, 14 Feb 2002 11:36:40 +0000 Subject: mpfr_{div,mul}_2exp -> mpfr_{div,mul}_2ui. git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1699 280ebfd0-de03-0410-8827-d642c229c3f4 --- atan.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'atan.c') diff --git a/atan.c b/atan.c index 98c5bc5ee..765677b2e 100644 --- a/atan.c +++ b/atan.c @@ -128,7 +128,7 @@ mpfr_atan (mpfr_ptr arctangent, mpfr_srcptr x, mp_rnd_t rnd_mode) if (comparaison == 0) { mpfr_init2(Pisur2, prec_arctan); mpfr_const_pi(Pisur2, rnd_mode); - mpfr_div_2exp(arctangent, Pisur2, 2, rnd_mode); + mpfr_div_2ui(arctangent, Pisur2, 2, rnd_mode); if (signe == -1) MPFR_CHANGE_SIGN(arctangent); mpfr_clear(Pisur2); @@ -172,7 +172,7 @@ mpfr_atan (mpfr_ptr arctangent, mpfr_srcptr x, mp_rnd_t rnd_mode) { mpfr_init2(Pisur2, Prec); mpfr_const_pi(Pisur2, GMP_RNDN); - mpfr_div_2exp(Pisur2, Pisur2, 1, GMP_RNDN); + mpfr_div_2ui(Pisur2, Pisur2, 1, GMP_RNDN); mpfr_ui_div(sk, 1, xp, GMP_RNDN); } else @@ -182,7 +182,7 @@ mpfr_atan (mpfr_ptr arctangent, mpfr_srcptr x, mp_rnd_t rnd_mode) mpfr_set_ui (tmp_arctan, 0, GMP_RNDN); twopoweri = 1; for(i = 0; i <= N0; i++){ - mpfr_mul_2exp(tmp, sk, twopoweri, GMP_RNDN); + mpfr_mul_2ui(tmp, sk, twopoweri, GMP_RNDN); /* Calculation of trunc(tmp) --> mpz */ mpfr_trunc (ukf, tmp); exptol = mpz_set_fr (ukz, ukf); @@ -196,7 +196,7 @@ mpfr_atan (mpfr_ptr arctangent, mpfr_srcptr x, mp_rnd_t rnd_mode) mpz_neg(square, square); mpfr_atan_aux(t_arctan, square, 2*twopoweri, N0 - i); mpfr_set_z(Ak, ukz, GMP_RNDN); - mpfr_div_2exp(Ak, Ak, twopoweri, GMP_RNDN); + mpfr_div_2ui(Ak, Ak, twopoweri, GMP_RNDN); mpfr_mul(t_arctan, t_arctan, Ak, GMP_RNDN); /* Addition and iteration */ -- cgit v1.2.1