The R Project SVN R

Rev

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

Rev 77685 Rev 81787
Line 99... Line 99...
99 
#ifdef NOMORE_FOR_THREADS
 99 
#ifdef NOMORE_FOR_THREADS
100 
    static int nlnrel = 0;
 100 
    static int nlnrel = 0;
101 
    static double xmin = 0.0;
 101 
    static double xmin = 0.0;
102 
 
 102 
 
103 
    if (xmin == 0.0) xmin = -1 + sqrt(DBL_EPSILON);/*was sqrt(d1mach(4)); */
 103 
    if (xmin == 0.0) xmin = -1 + sqrt(DBL_EPSILON);/*was sqrt(d1mach(4)); */
104 
    if (nlnrel == 0) /* initialize chebychev coefficients */
 104 
    if (nlnrel == 0) /* initialize chebyshev coefficients */
105 
	nlnrel = chebyshev_init(alnrcs, 43, DBL_EPSILON/20);/*was .1*d1mach(3)*/
 105 
	nlnrel = chebyshev_init(alnrcs, 43, DBL_EPSILON/20);/*was .1*d1mach(3)*/
106 
#else
 106 
#else
107 
# define nlnrel 22
 107 
# define nlnrel 22
108 
    const static double xmin = -0.999999985;
 108 
    const static double xmin = -0.999999985;
109 
/* 22: for IEEE double precision where DBL_EPSILON =  2.22044604925031e-16 */
 109 
/* 22: for IEEE double precision where DBL_EPSILON =  2.22044604925031e-16 */