Back to index

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

Go to the source code of this file.

Functions

double fd_jn (int n, double x)
double yn (int n, double x)

Function Documentation

double fd_jn ( int  n,
double  x 
)

Definition at line 83 of file w_jn.c.

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

Here is the call graph for this function:

double yn ( int  n,
double  x 
)

Definition at line 104 of file w_jn.c.

{
#ifdef _IEEE_LIBM
       return __ieee754_yn(n,x);
#else
       double z;
    int err;
       z = __ieee754_yn(n,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((double)n,x,12,&err);
                else
                    /* d = zero/(x-x); */
                    return __kernel_standard((double)n,x,13,&err);
        }
       if(x>X_TLOSS) {
           return __kernel_standard((double)n,x,39,&err); /* yn(x>X_TLOSS,n) */
       } else
           return z;
#endif
}

Here is the call graph for this function: