1df930be7Sderaadt /* @(#)w_gamma.c 5.1 93/09/24 */ 2df930be7Sderaadt /* 3df930be7Sderaadt * ==================================================== 4df930be7Sderaadt * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 5df930be7Sderaadt * 6df930be7Sderaadt * Developed at SunPro, a Sun Microsystems, Inc. business. 7df930be7Sderaadt * Permission to use, copy, modify, and distribute this 8df930be7Sderaadt * software is freely granted, provided that this notice 9df930be7Sderaadt * is preserved. 10df930be7Sderaadt * ==================================================== 11df930be7Sderaadt */ 12df930be7Sderaadt 13df930be7Sderaadt /* double gamma(double x) 14df930be7Sderaadt * Return the logarithm of the Gamma function of x. 15df930be7Sderaadt * 16df930be7Sderaadt * Method: call gamma_r 17df930be7Sderaadt */ 18df930be7Sderaadt 19df930be7Sderaadt #include "math.h" 20df930be7Sderaadt #include "math_private.h" 21df930be7Sderaadt 22df930be7Sderaadt extern int signgam; 23df930be7Sderaadt 24e7beb4a7Smillert double gamma(double x)25e7beb4a7Smillertgamma(double x) 26df930be7Sderaadt { 27*7b36286aSmartynas return lgamma_r(x,&signgam); 28df930be7Sderaadt } 29