1*190a67d7Smartynas /* w_gammaf.c -- float version of w_gamma.c.
2*190a67d7Smartynas * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
3*190a67d7Smartynas */
4*190a67d7Smartynas
5*190a67d7Smartynas /*
6*190a67d7Smartynas * ====================================================
7*190a67d7Smartynas * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
8*190a67d7Smartynas *
9*190a67d7Smartynas * Developed at SunPro, a Sun Microsystems, Inc. business.
10*190a67d7Smartynas * Permission to use, copy, modify, and distribute this
11*190a67d7Smartynas * software is freely granted, provided that this notice
12*190a67d7Smartynas * is preserved.
13*190a67d7Smartynas * ====================================================
14*190a67d7Smartynas */
15*190a67d7Smartynas
16*190a67d7Smartynas #include "math.h"
17*190a67d7Smartynas #include "math_private.h"
18*190a67d7Smartynas
19*190a67d7Smartynas extern int signgam;
20*190a67d7Smartynas
21*190a67d7Smartynas float
gammaf(float x)22*190a67d7Smartynas gammaf(float x)
23*190a67d7Smartynas {
24*190a67d7Smartynas return lgammaf_r(x,&signgam);
25*190a67d7Smartynas }
26