13a8617a8SJordan K. Hubbard /* e_gammaf_r.c -- float version of e_gamma_r.c.
23a8617a8SJordan K. Hubbard * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
33a8617a8SJordan K. Hubbard */
43a8617a8SJordan K. Hubbard
53a8617a8SJordan K. Hubbard /*
63a8617a8SJordan K. Hubbard * ====================================================
73a8617a8SJordan K. Hubbard * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
83a8617a8SJordan K. Hubbard *
93a8617a8SJordan K. Hubbard * Developed at SunPro, a Sun Microsystems, Inc. business.
103a8617a8SJordan K. Hubbard * Permission to use, copy, modify, and distribute this
113a8617a8SJordan K. Hubbard * software is freely granted, provided that this notice
123a8617a8SJordan K. Hubbard * is preserved.
133a8617a8SJordan K. Hubbard * ====================================================
143a8617a8SJordan K. Hubbard */
153a8617a8SJordan K. Hubbard
16*99843eb8SSteve Kargl /* gammaf_r(x, signgamp)
173a8617a8SJordan K. Hubbard * Reentrant version of the logarithm of the Gamma function
183a8617a8SJordan K. Hubbard * with user provide pointer for the sign of Gamma(x).
193a8617a8SJordan K. Hubbard *
20*99843eb8SSteve Kargl * Method: See lgammaf_r
213a8617a8SJordan K. Hubbard */
223a8617a8SJordan K. Hubbard
233a8617a8SJordan K. Hubbard #include "math.h"
243a8617a8SJordan K. Hubbard #include "math_private.h"
253a8617a8SJordan K. Hubbard
2659b19ff1SAlfred Perlstein float
gammaf_r(float x,int * signgamp)27*99843eb8SSteve Kargl gammaf_r(float x, int *signgamp)
283a8617a8SJordan K. Hubbard {
29*99843eb8SSteve Kargl return lgammaf_r(x,signgamp);
303a8617a8SJordan K. Hubbard }
31