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