findipl function

Finds the s-left and s-right for a given internal point x[j]