13a8617a8SJordan K. Hubbard /* @(#)er_gamma.c 5.1 93/09/24 */ 23a8617a8SJordan K. Hubbard /* 33a8617a8SJordan K. Hubbard * ==================================================== 43a8617a8SJordan K. Hubbard * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 53a8617a8SJordan K. Hubbard * 63a8617a8SJordan K. Hubbard * Developed at SunPro, a Sun Microsystems, Inc. business. 73a8617a8SJordan K. Hubbard * Permission to use, copy, modify, and distribute this 83a8617a8SJordan K. Hubbard * software is freely granted, provided that this notice 93a8617a8SJordan K. Hubbard * is preserved. 103a8617a8SJordan K. Hubbard * ==================================================== 113a8617a8SJordan K. Hubbard */ 123a8617a8SJordan K. Hubbard 133a8617a8SJordan K. Hubbard #ifndef lint 143a8617a8SJordan K. Hubbard static char rcsid[] = "$Id: e_gamma_r.c,v 1.4 1994/08/10 20:30:52 jtc Exp $"; 153a8617a8SJordan K. Hubbard #endif 163a8617a8SJordan K. Hubbard 173a8617a8SJordan K. Hubbard /* __ieee754_gamma_r(x, signgamp) 183a8617a8SJordan K. Hubbard * Reentrant version of the logarithm of the Gamma function 193a8617a8SJordan K. Hubbard * with user provide pointer for the sign of Gamma(x). 203a8617a8SJordan K. Hubbard * 213a8617a8SJordan K. Hubbard * Method: See __ieee754_lgamma_r 223a8617a8SJordan K. Hubbard */ 233a8617a8SJordan K. Hubbard 243a8617a8SJordan K. Hubbard #include "math.h" 253a8617a8SJordan K. Hubbard #include "math_private.h" 263a8617a8SJordan K. Hubbard 273a8617a8SJordan K. Hubbard #ifdef __STDC__ 283a8617a8SJordan K. Hubbard double __ieee754_gamma_r(double x, int *signgamp) 293a8617a8SJordan K. Hubbard #else 303a8617a8SJordan K. Hubbard double __ieee754_gamma_r(x,signgamp) 313a8617a8SJordan K. Hubbard double x; int *signgamp; 323a8617a8SJordan K. Hubbard #endif 333a8617a8SJordan K. Hubbard { 343a8617a8SJordan K. Hubbard return __ieee754_lgamma_r(x,signgamp); 353a8617a8SJordan K. Hubbard } 36