The R Project SVN R

Rev

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

Rev 68947 Rev 77685
Line 71... Line 71...
71 
    double del, difmuk= 0., E= 0., fk= 0., fx, fy, g, px, py, t, u= 0., v, x;
 71 
    double del, difmuk= 0., E= 0., fk= 0., fx, fy, g, px, py, t, u= 0., v, x;
72 
    double pois = -1.;
 72 
    double pois = -1.;
73 
    int k, kflag, big_mu, new_big_mu = FALSE;
 73 
    int k, kflag, big_mu, new_big_mu = FALSE;
74 
 
 74 
 
75 
    if (!R_FINITE(mu) || mu < 0)
 75 
    if (!R_FINITE(mu) || mu < 0)
76 
	ML_ERR_return_NAN;
 76 
	ML_WARN_return_NAN;
77 
 
 77 
 
78 
    if (mu <= 0.)
 78 
    if (mu <= 0.)
79 
	return 0.;
 79 
	return 0.;
80 
 
 80 
 
81 
    big_mu = mu >= 10.;
 81 
    big_mu = mu >= 10.;