The R Project SVN R

Rev

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

Rev 19500 Rev 27126
Line 43... Line 43...
43 
    int i, ii, mfl;
 43 
    int i, ii, mfl;
44 
    ii = 1;
 44 
    ii = 1;
45 
    for(i=0; i < *nx; i++) {
 45 
    for(i=0; i < *nx; i++) {
46 
	mfl = *all_inside;
 46 
	mfl = *all_inside;
47 
	ii = findInterval(xt, *n, x[i],
 47 
	ii = findInterval(xt, *n, x[i],
48 
			   *rightmost_closed, *all_inside, ii,  &mfl);
 48 
			  *rightmost_closed, *all_inside, ii,  &mfl);
49 
	indx[i] = ii;
 49 
	indx[i] = ii;
50 
    }
 50 
    }
51 
}
 51 
}
52 
 
 52 
 
53 
int findInterval(double *xt, int n, double x,
 53 
int findInterval(double *xt, int n, double x,