hiro/arb
1
0
Fork 0
mirror of https://github.com/vale981/arb synced 2025-03-04 17:01:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

use flint versions of gmp ui functions

Browse source
This commit is contained in:
fredrik 2020-06-23 13:43:00 +02:00
parent 35ba95dd9c
commit b913f4a73c
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
arb_hypgeom/legendre_p_ui_rec.c
View file

@ -84,15 +84,15 @@ arb_hypgeom_legendre_p_ui_rec(arb_t res, arb_t res_prime, ulong n, const arb_t x
{
mpz_mul(tt, p1, xx);
mpz_tdiv_q_2exp(tt, tt, wp);
mpz_mul_ui(p0, p0, k*k);
flint_mpz_mul_ui(p0, p0, k*k);
mpz_neg(p0, p0);
mpz_addmul_ui(p0, tt, 2 * k + 1);
flint_mpz_addmul_ui(p0, tt, 2 * k + 1);
mpz_swap(p0, p1);
umul_ppmm(denhi, denlo, den, k + 1);
if (denhi != 0)
{
mpz_tdiv_q_ui(p0, p0, den);
mpz_tdiv_q_ui(p1, p1, den);
flint_mpz_tdiv_q_ui(p0, p0, den);
flint_mpz_tdiv_q_ui(p1, p1, den);
den = k + 1;
}
else
@ -100,8 +100,8 @@ arb_hypgeom_legendre_p_ui_rec(arb_t res, arb_t res_prime, ulong n, const arb_t x
den = denlo;
}
}
mpz_tdiv_q_ui(p0, p0, den/n);
mpz_tdiv_q_ui(p1, p1, den);
flint_mpz_tdiv_q_ui(p0, p0, den/n);
flint_mpz_tdiv_q_ui(p1, p1, den);
if (!mag_is_zero(xrad))
{