| H A D | tgamma.c | 895 mpfr_t yd, yu, zd, zu; in exp_lgamma() local 930 mpfr_inits2 (p1, zd, zu, (mpfr_ptr) 0); in exp_lgamma() 951 inexu = mpfr_gamma (zu, x, MPFR_RNDU); /* zu >= Gamma(x) > yd */ in exp_lgamma() 954 if (! mpfr_greater_p (zu, yd) || inexu < 0 || in exp_lgamma() 963 mpfr_dump (zu); in exp_lgamma() 969 if (mpfr_equal_p (zd, zu)) in exp_lgamma() 990 mpfr_clears (yd, yu, zd, zu, (mpfr_ptr) 0); in exp_lgamma()
|