00001 00002 /* @(#)e_lgamma.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_lgamma(x) 00016 * Return the logarithm of the Gamma function of x. 00017 * 00018 * Method: call __ieee754_lgamma_r 00019 */ 00020 00021 #include "mathP.h" 00022 00023 extern int signgam; 00024 00025 #ifdef __STDC__ 00026 //__private_extern__ 00027 double __ieee754_lgamma(double x) 00028 #else 00029 double __ieee754_lgamma(x) 00030 double x; 00031 #endif 00032 { 00033 return __ieee754_lgamma_r(x,&signgam); 00034 }
1.3.8