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