Back to index

lightning-sunbird  0.9+nobinonly
Functions
w_gamma_r.c File Reference
#include "fdlibm.h"

Go to the source code of this file.

Functions

double fd_gamma_r (double x, int *signgamp)

Function Documentation

double fd_gamma_r ( double  x,
int signgamp 
)

Definition at line 62 of file w_gamma_r.c.

{
#ifdef _IEEE_LIBM
       return __ieee754_gamma_r(x,signgamp);
#else
        double y;
        y = __ieee754_gamma_r(x,signgamp);
        if(_LIB_VERSION == _IEEE_) return y;
        if(!fd_finite(y)&&fd_finite(x)) {
            int err;
            if(fd_floor(x)==x&&x<=0.0)
                return __kernel_standard(x,x,41,&err); /* gamma pole */
            else
                return __kernel_standard(x,x,40,&err); /* gamma overflow */
        } else
            return y;
#endif
}             

Here is the call graph for this function: