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 29... Line 29...
29 
{
 29 
{
30 
#ifdef IEEE_754
 30 
#ifdef IEEE_754
31 
    if (ISNAN(x) || ISNAN(a) || ISNAN(b))
 31 
    if (ISNAN(x) || ISNAN(a) || ISNAN(b))
32 
	return x + a + b;
 32 
	return x + a + b;
33 
#endif
 33 
#endif
34 
    if (b <= a) ML_ERR_return_NAN;
 34 
    if (b <= a) ML_WARN_return_NAN;
35 
 
 35 
 
36 
    if (a <= x && x <= b)
 36 
    if (a <= x && x <= b)
37 
	return give_log ? -log(b - a) : 1. / (b - a);
 37 
	return give_log ? -log(b - a) : 1. / (b - a);
38 
    return R_D__0;
 38 
    return R_D__0;
39 
}
 39 
}