e_gammaf.c revision 22993 
1114987Speter/* e_gammaf.c -- float version of e_gamma.c.
2114987Speter * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3114987Speter */
4114987Speter
5114987Speter/*
6114987Speter * ====================================================
7114987Speter * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8114987Speter *
9114987Speter * Developed at SunPro, a Sun Microsystems, Inc. business.
10114987Speter * Permission to use, copy, modify, and distribute this
11114987Speter * software is freely granted, provided that this notice
12114987Speter * is preserved.
13114987Speter * ====================================================
14114987Speter */
15114987Speter
16114987Speter#ifndef lint
17114987Speterstatic char rcsid[] = "$Id$";
18114987Speter#endif
19114987Speter
20114987Speter/* __ieee754_gammaf(x)
21114987Speter * Return the logarithm of the Gamma function of x.
22114987Speter *
23114987Speter * Method: call __ieee754_gammaf_r
24114987Speter */
25114987Speter
26114987Speter#include "math.h"
27114987Speter#include "math_private.h"
28114987Speter
29114987Speterextern int signgam;
30114987Speter
31114987Speter#ifdef __STDC__
32114987Speter	float __ieee754_gammaf(float x)
33114987Speter#else
34114987Speter	float __ieee754_gammaf(x)
35114987Speter	float x;
36114987Speter#endif
37114987Speter{
38114987Speter	return __ieee754_gammaf_r(x,&signgam);
39114987Speter}
40114987Speter