1141296Sdas 2141296Sdas/* @(#)e_gamma.c 1.3 95/01/18 */ 32116Sjkh/* 42116Sjkh * ==================================================== 52116Sjkh * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. 62116Sjkh * 7141296Sdas * Developed at SunSoft, a Sun Microsystems, Inc. business. 82116Sjkh * Permission to use, copy, modify, and distribute this 9141296Sdas * software is freely granted, provided that this notice 102116Sjkh * is preserved. 112116Sjkh * ==================================================== 122116Sjkh * 132116Sjkh */ 142116Sjkh 15176451Sdas#include <sys/cdefs.h> 16176451Sdas__FBSDID("$FreeBSD$"); 172116Sjkh 182116Sjkh/* __ieee754_gamma(x) 192116Sjkh * Return the logarithm of the Gamma function of x. 202116Sjkh * 212116Sjkh * Method: call __ieee754_gamma_r 222116Sjkh */ 232116Sjkh 242116Sjkh#include "math.h" 252116Sjkh#include "math_private.h" 262116Sjkh 272116Sjkhextern int signgam; 282116Sjkh 2997407Salfreddouble 3097407Salfred__ieee754_gamma(double x) 312116Sjkh{ 322116Sjkh return __ieee754_gamma_r(x,&signgam); 332116Sjkh} 34