xref: /freebsd/lib/msun/src/e_gammaf_r.c (revision 0dd5a5603e7a33d976f8e6015620bbc79839c609)
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