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 
#ifdef IEEE_754
 30 
#ifdef IEEE_754
31 
    if (ISNAN(p) || ISNAN(a) || ISNAN(b))
 31 
    if (ISNAN(p) || ISNAN(a) || ISNAN(b))
32 
	return p + a + b;
 32 
	return p + a + b;
33 
#endif
 33 
#endif
34 
    R_Q_P01_check(p);
 34 
    R_Q_P01_check(p);
35 
    if (!R_FINITE(a) || !R_FINITE(b)) ML_ERR_return_NAN;
 35 
    if (!R_FINITE(a) || !R_FINITE(b)) ML_WARN_return_NAN;
36 
    if (b < a) ML_ERR_return_NAN;
 36 
    if (b < a) ML_WARN_return_NAN;
37 
    if (b == a) return a;
 37 
    if (b == a) return a;
38 
 
 38 
 
39 
    return a + R_DT_qIv(p) * (b - a);
 39 
    return a + R_DT_qIv(p) * (b - a);
40 
}
 40 
}
41 
 
 41