Revert accidental checkin.
This commit is contained in:
parent
576593dd72
commit
f36d3b6a0d
@ -30,8 +30,3 @@
|
||||
{
|
||||
return exp (lgamma_r(x,signgamp));
|
||||
}
|
||||
|
||||
double gamma(double x)
|
||||
{
|
||||
return gamma_r(x, &(_REENT_SIGNGAM(_REENT)));
|
||||
}
|
||||
|
@ -422,9 +422,3 @@ static double zero= 0.00000000000000000000e+00;
|
||||
if(hx<0) r = nadj - r;
|
||||
return r;
|
||||
}
|
||||
|
||||
double
|
||||
lgamma(double x)
|
||||
{
|
||||
return lgamma_r(x, &(_REENT_SIGNGAM(_REENT)));
|
||||
}
|
||||
|
@ -16,7 +16,7 @@
|
||||
|
||||
/* gammaf_r(x, signgamp)
|
||||
* Reentrant version of the logarithm of the Gamma function
|
||||
* with user provided pointer for the sign of Gamma(x).
|
||||
* with user provide pointer for the sign of Gamma(x).
|
||||
*
|
||||
* Method: See lgammaf_r
|
||||
*/
|
||||
@ -32,8 +32,3 @@
|
||||
{
|
||||
return expf (lgammaf_r(x,signgamp));
|
||||
}
|
||||
|
||||
float gammaf(float x)
|
||||
{
|
||||
return gammaf_r(x, &(_REENT_SIGNGAM(_REENT)));
|
||||
}
|
||||
|
@ -244,8 +244,3 @@ static float zero= 0.0000000000e+00;
|
||||
if(hx<0) r = nadj - r;
|
||||
return r;
|
||||
}
|
||||
|
||||
float lgammaf(float x)
|
||||
{
|
||||
return lgammaf_r(x, &(_REENT_SIGNGAM(_REENT)));
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user