The R Project SVN R

Rev

Rev 29586 | Rev 36662 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 29586 Rev 32538
Line 52... Line 52...
52 
    return (!isnan(x) & (x != ML_POSINF) & (x != ML_NEGINF));
 52 
    return (!isnan(x) & (x != ML_POSINF) & (x != ML_NEGINF));
53 
# endif
 53 
# endif
54 
#endif
 54 
#endif
55 
}
 55 
}
56 
 
 56 
 
- 
 
 57 
/* C++ math header undefines any isnan macro. This file
- 
 
 58 
   doesn't get C++ headers and so is safe. */
- 
 
 59 
int R_isnancpp(double x)
- 
 
 60 
{
- 
 
 61 
	return (isnan(x) != 0);
- 
 
 62 
 
- 
 
 63 
}
- 
 
 64 
 
57 
static double myfmod(double x1, double x2)
 65 
static double myfmod(double x1, double x2)
58 
{
 66 
{
59 
    double q = x1 / x2;
 67 
    double q = x1 / x2;
60 
    return x1 - floor(q) * x2;
 68 
    return x1 - floor(q) * x2;
61 
}
 69 
}