1141296Sdas
2141296Sdas/* @(#)e_gamma_r.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 * ====================================================
12141296Sdas *
132116Sjkh */
142116Sjkh
15176451Sdas#include <sys/cdefs.h>
16176451Sdas__FBSDID("$FreeBSD$");
172116Sjkh
182116Sjkh/* __ieee754_gamma_r(x, signgamp)
19141296Sdas * Reentrant version of the logarithm of the Gamma function
20141296Sdas * with user provide pointer for the sign of Gamma(x).
212116Sjkh *
222116Sjkh * Method: See __ieee754_lgamma_r
232116Sjkh */
242116Sjkh
252116Sjkh#include "math.h"
262116Sjkh#include "math_private.h"
272116Sjkh
2897407Salfreddouble
2997407Salfred__ieee754_gamma_r(double x, int *signgamp)
302116Sjkh{
312116Sjkh	return __ieee754_lgamma_r(x,signgamp);
322116Sjkh}
33