Copied over latest sort_r code