The R Project SVN R

Rev

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

Rev 13434 Rev 17139
Line 61... Line 61...
61 
    const int itrmax = 1000;
 61 
    const int itrmax = 1000;
62 
    const double errmax = 1.e-12;
 62 
    const double errmax = 1.e-12;
63 
 
 63 
 
64 
    if (df <= 0.) ML_ERR_return_NAN;
 64 
    if (df <= 0.) ML_ERR_return_NAN;
65 
 
 65 
 
- 
 
 66 
    if(!R_FINITE(t))
- 
 
 67 
	return (t < 0) ? R_DT_0 : R_DT_1;
66 
    if (t >= 0.) {
 68 
    if (t >= 0.) {
67 
	negdel = FALSE;	tt = t;		del = delta;
 69 
	negdel = FALSE;	tt = t;		del = delta;
68 
    }
 70 
    }
69 
    else {
 71 
    else {
70 
	negdel = TRUE;		tt = -t;	del = -delta;
 72 
	negdel = TRUE;		tt = -t;	del = -delta;