diff options
Diffstat (limited to 'src/asinh.c')
| -rw-r--r-- | src/asinh.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/asinh.c b/src/asinh.c index 9a2cbcb..89477a6 100644 --- a/src/asinh.c +++ b/src/asinh.c @@ -1,6 +1,6 @@ /* mpc_asinh -- inverse hyperbolic sine of a complex number. -Copyright (C) 2009 INRIA +Copyright (C) 2009, 2011 INRIA This file is part of GNU MPC. @@ -29,9 +29,9 @@ mpc_asinh (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd) mpfr_t tmp; /* z = i*op */ - MPC_RE (z)[0] = MPC_IM (op)[0]; - MPC_IM (z)[0] = MPC_RE (op)[0]; - MPFR_CHANGE_SIGN (MPC_RE (z)); + mpc_realref (z)[0] = mpc_imagref (op)[0]; + mpc_imagref (z)[0] = mpc_realref (op)[0]; + MPFR_CHANGE_SIGN (mpc_realref (z)); /* Note reversal of precisions due to later multiplication by -i */ mpc_init3 (a, MPC_PREC_IM(rop), MPC_PREC_RE(rop)); @@ -42,10 +42,10 @@ mpc_asinh (mpc_ptr rop, mpc_srcptr op, mpc_rnd_t rnd) /* if a = asin(i*op) = x+i*y, and we want y-i*x */ /* change a to -i*a */ - tmp[0] = MPC_RE (a)[0]; - MPC_RE (a)[0] = MPC_IM (a)[0]; - MPC_IM (a)[0] = tmp[0]; - MPFR_CHANGE_SIGN (MPC_IM (a)); + tmp[0] = mpc_realref (a)[0]; + mpc_realref (a)[0] = mpc_imagref (a)[0]; + mpc_imagref (a)[0] = tmp[0]; + MPFR_CHANGE_SIGN (mpc_imagref (a)); mpc_set (rop, a, MPC_RNDNN); /* exact */ |