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 23... Line 23...
23 
 */
 23 
 */
24 
#include "nmath.h"
 24 
#include "nmath.h"
25 
 
 25 
 
26 
double runif(double a, double b)
 26 
double runif(double a, double b)
27 
{
 27 
{
28 
    if (!R_FINITE(a) || !R_FINITE(b) || b < a)	ML_ERR_return_NAN;
 28 
    if (!R_FINITE(a) || !R_FINITE(b) || b < a)	ML_WARN_return_NAN;
29 
 
 29 
 
30 
    if (a == b)
 30 
    if (a == b)
31 
	return a;
 31 
	return a;
32 
    else {
 32 
    else {
33 
	double u;
 33 
	double u;