e_gamma.c revision 141296 
1
2/* @(#)e_gamma.c 1.3 95/01/18 */
3/*
4 * ====================================================
5 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6 *
7 * Developed at SunSoft, a Sun Microsystems, Inc. business.
8 * Permission to use, copy, modify, and distribute this
9 * software is freely granted, provided that this notice
10 * is preserved.
11 * ====================================================
12 *
13 */
14
15#ifndef lint
16static char rcsid[] = "$FreeBSD: head/lib/msun/src/e_gamma.c 141296 2005-02-04 18:26:06Z das $";
17#endif
18
19/* __ieee754_gamma(x)
20 * Return the logarithm of the Gamma function of x.
21 *
22 * Method: call __ieee754_gamma_r
23 */
24
25#include "math.h"
26#include "math_private.h"
27
28extern int signgam;
29
30double
31__ieee754_gamma(double x)
32{
33	return __ieee754_gamma_r(x,&signgam);
34}
35