The R Project SVN R

Rev

Rev 68947 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68947 Rev 77685
Line 30... Line 30...
30 
{
 30 
{
31 
#ifdef IEEE_754
 31 
#ifdef IEEE_754
32 
    if (ISNAN(x) || ISNAN(p))
 32 
    if (ISNAN(x) || ISNAN(p))
33 
	return x + p;
 33 
	return x + p;
34 
#endif
 34 
#endif
35 
    if(p <= 0 || p > 1) ML_ERR_return_NAN;
 35 
    if(p <= 0 || p > 1) ML_WARN_return_NAN;
36 
 
 36 
 
37 
    if (x < 0.) return R_DT_0;
 37 
    if (x < 0.) return R_DT_0;
38 
    if (!R_FINITE(x)) return R_DT_1;
 38 
    if (!R_FINITE(x)) return R_DT_1;
39 
    x = floor(x +1e-7);
 39 
    x = floor(x +1e-7);
40 
 
 40