The R Project SVN R

Rev

Rev 70612 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 70612 Rev 71411
Line 84... Line 84...
84 
    static double s, s2, d;    /* no. 1 (step 1) */
 84 
    static double s, s2, d;    /* no. 1 (step 1) */
85 
    static double q0, b, si, c;/* no. 2 (step 4) */
 85 
    static double q0, b, si, c;/* no. 2 (step 4) */
86 
 
 86 
 
87 
    double e, p, q, r, t, u, v, w, x, ret_val;
 87 
    double e, p, q, r, t, u, v, w, x, ret_val;
88 
 
 88 
 
- 
 
 89 
    if (ISNAN(a) || ISNAN(scale))
- 
 
 90 
	ML_ERR_return_NAN;
89 
    if (a <= 0.0 || scale <= 0.0) {
 91 
    if (a <= 0.0 || scale <= 0.0) {
90 
	if(scale == 0. || a == 0.) return 0.;
 92 
	if(scale == 0. || a == 0.) return 0.;
91 
	ML_ERR_return_NAN;
 93 
	ML_ERR_return_NAN;
92 
    }
 94 
    }
93 
    if(!R_FINITE(a) || !R_FINITE(scale)) return ML_POSINF;
 95 
    if(!R_FINITE(a) || !R_FINITE(scale)) return ML_POSINF;