From 8325e1a676a1a8e253e6915d62630145051aee11 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 10 Jun 2014 16:50:19 +0200 Subject: sortVector --- packages/base/src/C/vector-aux.c | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'packages/base/src/C') diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c index 53b56aa..b176089 100644 --- a/packages/base/src/C/vector-aux.c +++ b/packages/base/src/C/vector-aux.c @@ -770,3 +770,16 @@ int smTXv(KDVEC(vals),KIVEC(cols),KIVEC(rows),KDVEC(x),DVEC(r)) { OK } +//////////////////////////////////////////////////////////////////////////////// + +int +compare_doubles (const void *a, const void *b) { + return *(double*)a > *(double*)b; +} + +int sort_values(KDVEC(v),DVEC(r)) { + memcpy(rp,vp,vn*sizeof(double)); + qsort(rp,rn,sizeof(double),compare_doubles); + OK +} + -- cgit v1.2.3