tqs_algorithm
tqs_algorithm(&X[n - q], q, collate_fcn, coll_flags);
tqs_algorithm(X, p, collate_fcn, coll_flags);
tqs_algorithm(&X[p], le + n - re - 1, collate_fcn, coll_flags);