1  
 2  /* @(#)e_gamma_r.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 "mathP.h"
23  
24  #ifdef __STDC__
25  	//__private_extern__
26  	double __ieee754_gamma_r(double x, int *signgamp)
27  #else
28  	double __ieee754_gamma_r(x,signgamp)
29  	double x; int *signgamp;
30  #endif
31  {
32  	return __ieee754_lgamma_r(x,signgamp);
33  }