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