00001 00002 /* @(#)e_gamma_r.c 5.1 93/09/24 */ 00003 /* 00004 * ==================================================== 00005 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 00006 * 00007 * Developed at SunPro, a Sun Microsystems, Inc. business. 00008 * Permission to use, copy, modify, and distribute this 00009 * software is freely granted, provided that this notice 00010 * is preserved. 00011 * ==================================================== 00012 * 00013 */ 00014 00015 /* __ieee754_gamma_r(x, signgamp) 00016 * Reentrant version of the logarithm of the Gamma function 00017 * with user provide pointer for the sign of Gamma(x). 00018 * 00019 * Method: See __ieee754_lgamma_r 00020 */ 00021 00022 #include "mathP.h" 00023 00024 #ifdef __STDC__ 00025 //__private_extern__ 00026 double __ieee754_gamma_r(double x, int *signgamp) 00027 #else 00028 double __ieee754_gamma_r(x,signgamp) 00029 double x; int *signgamp; 00030 #endif 00031 { 00032 return __ieee754_lgamma_r(x,signgamp); 00033 }
1.3.8