The R Project SVN R

Rev

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

Rev 29041 Rev 32876
Line 468... Line 468...
468 
    if(ISNAN(x))
 468 
    if(ISNAN(x))
469 
	return x;
 469 
	return x;
470 
    deriv = floor(deriv + 0.5);
 470 
    deriv = floor(deriv + 0.5);
471 
    n = (int)deriv;
 471 
    n = (int)deriv;
472 
    if(n > n_max) {
 472 
    if(n > n_max) {
473 
	MATHLIB_WARNING2("deriv = %d > %d (= n_max)", n, n_max);
 473 
	MATHLIB_WARNING2(_("deriv = %d > %d (= n_max)"), n, n_max);
474 
	return ML_NAN;
 474 
	return ML_NAN;
475 
    }
 475 
    }
476 
    dpsifn(x, n, 1, 1, &ans, &nz, &ierr);
 476 
    dpsifn(x, n, 1, 1, &ans, &nz, &ierr);
477 
    if(ierr != 0) {
 477 
    if(ierr != 0) {
478 
	errno = EDOM;
 478 
	errno = EDOM;