Revert accidental checkin.
This commit is contained in:
parent
576593dd72
commit
f36d3b6a0d
|
@ -30,8 +30,3 @@
|
||||||
{
|
{
|
||||||
return exp (lgamma_r(x,signgamp));
|
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;
|
if(hx<0) r = nadj - r;
|
||||||
return r;
|
return r;
|
||||||
}
|
}
|
||||||
|
|
||||||
double
|
|
||||||
lgamma(double x)
|
|
||||||
{
|
|
||||||
return lgamma_r(x, &(_REENT_SIGNGAM(_REENT)));
|
|
||||||
}
|
|
||||||
|
|
|
@ -16,7 +16,7 @@
|
||||||
|
|
||||||
/* gammaf_r(x, signgamp)
|
/* gammaf_r(x, signgamp)
|
||||||
* Reentrant version of the logarithm of the Gamma function
|
* 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
|
* Method: See lgammaf_r
|
||||||
*/
|
*/
|
||||||
|
@ -32,8 +32,3 @@
|
||||||
{
|
{
|
||||||
return expf (lgammaf_r(x,signgamp));
|
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;
|
if(hx<0) r = nadj - r;
|
||||||
return r;
|
return r;
|
||||||
}
|
}
|
||||||
|
|
||||||
float lgammaf(float x)
|
|
||||||
{
|
|
||||||
return lgammaf_r(x, &(_REENT_SIGNGAM(_REENT)));
|
|
||||||
}
|
|
||||||
|
|
Loading…
Reference in New Issue