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 37... Line 37...
37 
{
 37 
{
38 
#ifdef IEEE_754
 38 
#ifdef IEEE_754
39 
    if (ISNAN(x) || ISNAN(location) || ISNAN(scale))
 39 
    if (ISNAN(x) || ISNAN(location) || ISNAN(scale))
40 
	return x + location + scale;
 40 
	return x + location + scale;
41 
#endif
 41 
#endif
42 
    if (scale <= 0) ML_ERR_return_NAN;
 42 
    if (scale <= 0) ML_WARN_return_NAN;
43 
 
 43 
 
44 
    x = (x - location) / scale;
 44 
    x = (x - location) / scale;
45 
    if (ISNAN(x)) ML_ERR_return_NAN;
 45 
    if (ISNAN(x)) ML_WARN_return_NAN;
46 
#ifdef IEEE_754
 46 
#ifdef IEEE_754
47 
    if(!R_FINITE(x)) {
 47 
    if(!R_FINITE(x)) {
48 
	if(x < 0) return R_DT_0;
 48 
	if(x < 0) return R_DT_0;
49 
	else return R_DT_1;
 49 
	else return R_DT_1;
50 
    }
 50 
    }