atan.c: use macro ROUND_AWAY

git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@1235 211d60ee-9f03-0410-a15a-8952a2c7a4e4

1 files changed, 1 insertions, 2 deletions

diff --git a/src/atan.c b/src/atan.c
index fa0c81e..8aa8553 100644
--- a/src/atan.c
+++ b/src/atan.c
@@ -304,7 +304,6 @@ mpc_atan (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd)
     */
     err = 2;
     p = prec; /* working precision */
-    rnd1 = mpfr_cmp_si (mpc_imagref (op), -1) > 0 ? GMP_RNDU : GMP_RNDD;
 
     do
       {
@@ -314,7 +313,7 @@ mpc_atan (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd)
         mpfr_set_prec (y, p);
 
         /* a = upper bound for log(x^2 + (1+y)^2) */
-        mpfr_add_ui (a, mpc_imagref (op), 1, rnd1); /* round away */
+        ROUND_AWAY (mpfr_add_ui (a, mpc_imagref (op), 1, MPFR_RNDA), a);
         mpfr_sqr (a, a, GMP_RNDU);
         mpfr_sqr (y, mpc_realref (op), GMP_RNDU);
         mpfr_add (a, a, y, GMP_RNDU);