The R Project SVN R

Rev

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

Rev 77685 Rev 87903
Line 43... Line 43...
43 
#include "nmath.h"
 43 
#include "nmath.h"
44 
 
 44 
 
45 
/* NaNs propagated correctly */
 45 
/* NaNs propagated correctly */
46 
 
 46 
 
47 
 
 47 
 
48 
int attribute_hidden chebyshev_init(double *dos, int nos, double eta)
 48 
attribute_hidden int chebyshev_init(double *dos, int nos, double eta)
49 
{
 49 
{
50 
    int i, ii;
 50 
    int i, ii;
51 
    double err;
 51 
    double err;
52 
 
 52 
 
53 
    if (nos < 1)
 53 
    if (nos < 1)
Line 64... Line 64...
64 
    }
 64 
    }
65 
    return i;
 65 
    return i;
66 
}
 66 
}
67 
 
 67 
 
68 
 
 68 
 
69 
double attribute_hidden chebyshev_eval(double x, const double *a, const int n)
 69 
attribute_hidden double chebyshev_eval(double x, const double *a, const int n)
70 
{
 70 
{
71 
    double b0, b1, b2, twox;
 71 
    double b0, b1, b2, twox;
72 
    int i;
 72 
    int i;
73 
 
 73 
 
74 
    if (n < 1 || n > 1000) ML_WARN_return_NAN;
 74 
    if (n < 1 || n > 1000) ML_WARN_return_NAN;