The R Project SVN R

Rev

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

Rev 60432 Rev 60517
Line 1325... Line 1325...
1325 
	int *Cnt = NULL;
 1325 
	int *Cnt = NULL;
1326 
	LDOUBLE *rans;
 1326 
	LDOUBLE *rans;
1327 
	if(n <= 10000) {
 1327 
	if(n <= 10000) {
1328 
	    R_CheckStack2(n * sizeof(LDOUBLE));
 1328 
	    R_CheckStack2(n * sizeof(LDOUBLE));
1329 
	    rans = (LDOUBLE *) alloca(n * sizeof(LDOUBLE));
 1329 
	    rans = (LDOUBLE *) alloca(n * sizeof(LDOUBLE));
1330 
	    memset(rans, 0, n*sizeof(LDOUBLE));
 1330 
	    Memzero(rans, n);
1331 
	} else rans = Calloc(n, LDOUBLE);
 1331 
	} else rans = Calloc(n, LDOUBLE);
1332 
	if (!keepNA && OP == 3) Cnt = Calloc(n, int);
 1332 
	if (!keepNA && OP == 3) Cnt = Calloc(n, int);
1333 
 
 1333 
 
1334 
	for (int j = 0; j < p; j++) {
 1334 
	for (int j = 0; j < p; j++) {
1335 
	    LDOUBLE *ra = rans;
 1335 
	    LDOUBLE *ra = rans;