The R Project SVN R

Rev

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

Rev 11708 Rev 13434
Line 48... Line 48...
48 
#define S4 0.0008417508417508417508417508/* 1/1188 */
 48 
#define S4 0.0008417508417508417508417508/* 1/1188 */
49 
 
 49 
 
50 
/*
 50 
/*
51 
  error for 0, 0.5, 1.0, 1.5, ..., 14.5, 15.0.
 51 
  error for 0, 0.5, 1.0, 1.5, ..., 14.5, 15.0.
52 
*/
 52 
*/
53 
    static double sferr_halves[31] = {
 53 
    const double sferr_halves[31] = {
54 
	0.0, /* n=0 - wrong, place holder only */
 54 
	0.0, /* n=0 - wrong, place holder only */
55 
	0.1534264097200273452913848,  /* 0.5 */
 55 
	0.1534264097200273452913848,  /* 0.5 */
56 
	0.0810614667953272582196702,  /* 1.0 */
 56 
	0.0810614667953272582196702,  /* 1.0 */
57 
	0.0548141210519176538961390,  /* 1.5 */
 57 
	0.0548141210519176538961390,  /* 1.5 */
58 
	0.0413406959554092940938221,  /* 2.0 */
 58 
	0.0413406959554092940938221,  /* 2.0 */