Back to index

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

Go to the source code of this file.

Functions

double fd_j1 (double x)
double y1 (double x)

Function Documentation

double fd_j1 ( double  x)

Definition at line 61 of file w_j1.c.

{
#ifdef _IEEE_LIBM
       return __ieee754_j1(x);
#else
       double z;
       z = __ieee754_j1(x);
       if(_LIB_VERSION == _IEEE_ || fd_isnan(x) ) return z;
       if(fd_fabs(x)>X_TLOSS) {
        int err;
        return __kernel_standard(x,x,36,&err); /* j1(|x|>X_TLOSS) */
       } else
           return z;
#endif
}

Here is the call graph for this function:

double y1 ( double  x)

Definition at line 82 of file w_j1.c.

{
#ifdef _IEEE_LIBM
       return __ieee754_y1(x);
#else
       double z;
    int err;
       z = __ieee754_y1(x);
       if(_LIB_VERSION == _IEEE_ || fd_isnan(x) ) return z;
        if(x <= 0.0){
                if(x==0.0)
                    /* d= -one/(x-x); */
                    return __kernel_standard(x,x,10,&err);
                else
                    /* d = zero/(x-x); */
                    return __kernel_standard(x,x,11,&err);
        }
       if(x>X_TLOSS) {
               return __kernel_standard(x,x,37,&err); /* y1(x>X_TLOSS) */
       } else
           return z;
#endif
}

Here is the call graph for this function: