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