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