Mercurial > octave-nkf
changeset 14847:bcf86cc2f1ee
Use xlgamma instead of lgamma in betaincinv for portability across systems.
* lo-specfun.cc (betaincinv): Use xlgamma instead of lgamma.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Sun, 08 Jul 2012 11:35:06 -0700 |
| parents | 460a3c6d8bf1 |
| children | 4563d9935853 |
| files | liboctave/lo-specfun.cc |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/lo-specfun.cc Sun Jul 08 11:28:50 2012 -0700 +++ b/liboctave/lo-specfun.cc Sun Jul 08 11:35:06 2012 -0700 @@ -3287,7 +3287,7 @@ bool indx; double pp, prev, qq, r, s, sae = -37.0, sq, t, tx, value, w, xin, ycur, yprev; - double beta = lgamma (p) + lgamma (q) - lgamma (p + q); + double beta = xlgamma (p) + xlgamma (q) - xlgamma (p + q); bool err = false; fpu = pow (10.0, sae); value = y;