The R Project SVN R

Rev

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

Rev 24068 Rev 24736
Line 115... Line 115...
115 
    static int d_n, i, i1, i2;
 115 
    static int d_n, i, i1, i2;
116 
    static double zi, zr, xx, yy;
 116 
    static double zi, zr, xx, yy;
117 
    static double bnd, xxx;
 117 
    static double bnd, xxx;
118 
    Rboolean conv;
 118 
    Rboolean conv;
119 
    int d1;
 119 
    int d1;
120 
#ifdef Older
 - 
 
121 
    /* We use the originals to get exact agreement with the original, but ... */
 - 
 
122 
    static const double cosr = (float)-.060756474;/*instead of -.069... ! */
 - 
 
123 
    static const double sinr = (float).99756405;
 - 
 
124 
    xx = (float).70710678;
 - 
 
125 
#else
 - 
 
126 
    static const double cosr =/* cos 94 */ -0.06975647374412529990;
 120 
    static const double cosr =/* cos 94 */ -0.06975647374412529990;
127 
    static const double sinr =/* sin 94 */  0.99756405025982424767;
 121 
    static const double sinr =/* sin 94 */  0.99756405025982424767;
128 
    xx = M_SQRT1_2;/* 1/sqrt(2) = 0.707.... */
 122 
    xx = M_SQRT1_2;/* 1/sqrt(2) = 0.707.... */
129 
#endif
 - 
 
130 
 
 123 
 
131 
    yy = -xx;
 124 
    yy = -xx;
132 
    *fail = FALSE;
 125 
    *fail = FALSE;
133 
 
 126 
 
134 
    nn = *degree;
 127 
    nn = *degree;