e_gammaf.c revision 8870
10Sstevel@tonic-gate/* e_gammaf.c -- float version of e_gamma.c.
20Sstevel@tonic-gate * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
30Sstevel@tonic-gate */
40Sstevel@tonic-gate
55608Srv207048/*
65608Srv207048 * ====================================================
70Sstevel@tonic-gate * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
80Sstevel@tonic-gate *
90Sstevel@tonic-gate * Developed at SunPro, a Sun Microsystems, Inc. business.
100Sstevel@tonic-gate * Permission to use, copy, modify, and distribute this
110Sstevel@tonic-gate * software is freely granted, provided that this notice
120Sstevel@tonic-gate * is preserved.
130Sstevel@tonic-gate * ====================================================
140Sstevel@tonic-gate */
150Sstevel@tonic-gate
160Sstevel@tonic-gate#ifndef lint
170Sstevel@tonic-gatestatic char rcsid[] = "$Id: e_gammaf.c,v 1.1.1.1 1994/08/19 09:39:54 jkh Exp $";
180Sstevel@tonic-gate#endif
190Sstevel@tonic-gate
200Sstevel@tonic-gate/* __ieee754_gammaf(x)
210Sstevel@tonic-gate * Return the logarithm of the Gamma function of x.
2212762SEthindra.Ramamurthy@Sun.COM *
230Sstevel@tonic-gate * Method: call __ieee754_gammaf_r
240Sstevel@tonic-gate */
250Sstevel@tonic-gate
260Sstevel@tonic-gate#include "math.h"
270Sstevel@tonic-gate#include "math_private.h"
280Sstevel@tonic-gate
290Sstevel@tonic-gateextern int signgam;
300Sstevel@tonic-gate
310Sstevel@tonic-gate#ifdef __STDC__
320Sstevel@tonic-gate	float __ieee754_gammaf(float x)
330Sstevel@tonic-gate#else
340Sstevel@tonic-gate	float __ieee754_gammaf(x)
350Sstevel@tonic-gate	float x;
360Sstevel@tonic-gate#endif
370Sstevel@tonic-gate{
380Sstevel@tonic-gate	return __ieee754_gammaf_r(x,&signgam);
390Sstevel@tonic-gate}
400Sstevel@tonic-gate