OSDN Git Service

a7183c50f811aa6392dd561f5ea62012079d3157
[pf3gnuchains/pf3gnuchains4x.git] / newlib / libm / math / er_gamma.c
1
2 /* @(#)er_gamma.c 5.1 93/09/24 */
3 /*
4  * ====================================================
5  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
6  *
7  * Developed at SunPro, a Sun Microsystems, Inc. business.
8  * Permission to use, copy, modify, and distribute this
9  * software is freely granted, provided that this notice 
10  * is preserved.
11  * ====================================================
12  *
13  */
14
15 /* __ieee754_gamma_r(x, signgamp)
16  * Reentrant version of the logarithm of the Gamma function 
17  * with user provide pointer for the sign of Gamma(x). 
18  *
19  * Method: See __ieee754_lgamma_r
20  */
21
22 #include "fdlibm.h"
23
24 #ifdef __STDC__
25         double __ieee754_gamma_r(double x, int *signgamp)
26 #else
27         double __ieee754_gamma_r(x,signgamp)
28         double x; int *signgamp;
29 #endif
30 {
31         return __ieee754_lgamma_r(x,signgamp);
32 }