RTAI API: base/math/e_lgamma.c Source File

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 }