1 /* w_gammaf_r.c -- float version of w_gamma_r.c.
2 * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
6 * ====================================================
7 * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
9 * Developed at SunPro, a Sun Microsystems, Inc. business.
10 * Permission to use, copy, modify, and distribute this
11 * software is freely granted, provided that this notice
13 * ====================================================
17 static char rcsid[] = "$Id$";
21 * wrapper float gammaf_r(float x, int *signgamp)
25 #include "math_private.h"
29 float gammaf_r(float x, int *signgamp) /* wrapper lgammaf_r */
31 float gammaf_r(x,signgamp) /* wrapper lgammaf_r */
32 float x; int *signgamp;
36 return __ieee754_gammaf_r(x,signgamp);
39 y = __ieee754_gammaf_r(x,signgamp);
40 if(_LIB_VERSION == _IEEE_) return y;
41 if(!finitef(y)&&finitef(x)) {
42 if(floorf(x)==x&&x<=(float)0.0)
44 return (float)__kernel_standard((double)x,(double)x,141);
47 return (float)__kernel_standard((double)x,(double)x,140);