The R Project SVN R

Rev

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

Rev 64376 Rev 64677
Line 137... Line 137...
137 
	-5.952379913043012e-4,7.93650793500350248e-4,
 137 
	-5.952379913043012e-4,7.93650793500350248e-4,
138 
	-.002777777777777681622553,.08333333333333333331554247,
 138 
	-.002777777777777681622553,.08333333333333333331554247,
139 
	.0057083835261 };
 139 
	.0057083835261 };
140 
 
 140 
 
141 
    /* Local variables */
 141 
    /* Local variables */
142 
    long i, n;
 142 
    int i, n;
143 
    long int parity;/*logical*/
 143 
    int parity;/*logical*/
144 
    double fact, xden, xnum, y, z, yi, res, sum, ysq;
 144 
    double fact, xden, xnum, y, z, yi, res, sum, ysq;
145 
 
 145 
 
146 
    parity = (0);
 146 
    parity = (0);
147 
    fact = 1.;
 147 
    fact = 1.;
148 
    n = 0;
 148 
    n = 0;
Line 185... Line 185...
185 
	    y += 1.;
 185 
	    y += 1.;
186 
	} else {
 186 
	} else {
187 
	    /* -----------------------------------------------------------
 187 
	    /* -----------------------------------------------------------
188 
	       1 <= argument < 12, reduce argument if necessary
 188 
	       1 <= argument < 12, reduce argument if necessary
189 
	       ----------------------------------------------------------- */
 189 
	       ----------------------------------------------------------- */
190 
	    n = (long) y - 1;
 190 
	    n = (int) y - 1;
191 
	    y -= (double) n;
 191 
	    y -= (double) n;
192 
	    z = y - 1.;
 192 
	    z = y - 1.;
193 
	}
 193 
	}
194 
	/* ---------------------------------------------------------
 194 
	/* ---------------------------------------------------------
195 
	   Evaluate approximation for 1. < argument < 2.
 195 
	   Evaluate approximation for 1. < argument < 2.