The R Project SVN R

Rev

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

Rev 4562 Rev 5108
Line 106... Line 106...
106 
    static double alv;
 106 
    static double alv;
107 
 
 107 
 
108 
    /* check parameter validity */
 108 
    /* check parameter validity */
109 
 
 109 
 
110 
#ifdef IEEE_754
 110 
#ifdef IEEE_754
111 
    if(!finite(nn1in) || !finite(nn2in) || !finite(kkin)) {
 111 
    if(!R_FINITE(nn1in) || !R_FINITE(nn2in) || !R_FINITE(kkin)) {
112 
	ML_ERROR(ME_DOMAIN);
 112 
	ML_ERROR(ME_DOMAIN);
113 
	return ML_NAN;
 113 
	return ML_NAN;
114 
    }
 114 
    }
115 
#endif
 115 
#endif
116 
 
 116