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 165aa554c7SDavid Schultz #include <sys/cdefs.h> 175aa554c7SDavid Schultz __FBSDID("$FreeBSD$"); 183a8617a8SJordan K. Hubbard 19*99843eb8SSteve Kargl /* gammaf_r(x, signgamp) 203a8617a8SJordan K. Hubbard * Reentrant version of the logarithm of the Gamma function 213a8617a8SJordan K. Hubbard * with user provide pointer for the sign of Gamma(x). 223a8617a8SJordan K. Hubbard * 23*99843eb8SSteve Kargl * Method: See lgammaf_r 243a8617a8SJordan K. Hubbard */ 253a8617a8SJordan K. Hubbard 263a8617a8SJordan K. Hubbard #include "math.h" 273a8617a8SJordan K. Hubbard #include "math_private.h" 283a8617a8SJordan K. Hubbard 2959b19ff1SAlfred Perlstein float 30*99843eb8SSteve Kargl gammaf_r(float x, int *signgamp) 313a8617a8SJordan K. Hubbard { 32*99843eb8SSteve Kargl return lgammaf_r(x,signgamp); 333a8617a8SJordan K. Hubbard } 34