From 4403c176938a990f51762a48e95d1f03a11adc4e Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 11 Jun 2014 13:52:44 +0200
Subject: roundVector

---
 packages/base/src/C/vector-aux.c | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'packages/base/src/C/vector-aux.c')

diff --git a/packages/base/src/C/vector-aux.c b/packages/base/src/C/vector-aux.c
index b176089..efb82af 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -783,3 +783,13 @@ int sort_values(KDVEC(v),DVEC(r)) {
     OK
 }
 
+////////////////////////////////////////////////////////////////////////////////
+
+int round_vector(KDVEC(v),DVEC(r)) {
+    int k;
+    for(k=0; k<vn; k++) {
+        rp[k] = round(vp[k]);
+    }
+    OK
+}
+
-- 
cgit v1.2.3