function(x, y, xc)
{
	jm <- length(y)
	for(i in 1:length(x)) {
		if(x[i] < y[1])
			xc[i] <- 1
	}
	for(i in 1:length(x)) {
		for(j in 2:jm) {
			if(x[i] >= y[j - 1] && 
				x[i] < y[j]
				)
				xc[i] <- j
		}
		if(x[i] >= y[jm])
			xc[i] <- jm + 1
	}
	xc
}
