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