Function libR_sys::R_orderVector1

pub unsafe extern "C" fn R_orderVector1(
    indx: *mut c_int,
    n: c_int,
    x: SEXP,
    nalast: Rboolean,
    decreasing: Rboolean
)

C version of R’s indx <- order(x, na.last, decreasing) :