dist/src/zeta.c

569           mpfr_t z_up;
608                   mpfr_init2 (z_up, mpfr_get_prec (z_pre));
609                   mpfr_reflection_overflow (z_up, s1, s, y, p, MPFR_RNDU);
611                      z_up does, we need more precision */
612                   if (MPFR_IS_INF (z_up) || MPFR_GET_EXP(z_up) == __gmpfr_emax)
614                   /* check if z_pre and z_up round to the same number */
619                   mpfr_prec_round (z_up, precz, rnd_mode);
620                   ok = mpfr_equal_p (z_down, z_up);
621                   mpfr_clear (z_up);