The R Project SVN R

Rev

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

Rev 69250 Rev 77685
Line 27... Line 27...
27 
double pexp(double x, double scale, int lower_tail, int log_p)
 27 
double pexp(double x, double scale, int lower_tail, int log_p)
28 
{
 28 
{
29 
#ifdef IEEE_754
 29 
#ifdef IEEE_754
30 
    if (ISNAN(x) || ISNAN(scale))
 30 
    if (ISNAN(x) || ISNAN(scale))
31 
	return x + scale;
 31 
	return x + scale;
32 
    if (scale < 0) ML_ERR_return_NAN;
 32 
    if (scale < 0) ML_WARN_return_NAN;
33 
#else
 33 
#else
34 
    if (scale <= 0) ML_ERR_return_NAN;
 34 
    if (scale <= 0) ML_WARN_return_NAN;
35 
#endif
 35 
#endif
36 
 
 36 
 
37 
    if (x <= 0.)
 37 
    if (x <= 0.)
38 
	return R_DT_0;
 38 
	return R_DT_0;
39 
    /* same as weibull( shape = 1): */
 39 
    /* same as weibull( shape = 1): */