PRO rxr, x, y, xlims

; Restrict the x-range of a 1-d function

keep = where ( xlims(0) LE x AND x LE xlims(1) , nkeep )

IF (nkeep EQ 0) THEN EXIT

x = x(keep)
y = y(keep)

END