From 11095a22c59bed6a011723641dfb782415e2c02b Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Mon, 25 May 2015 08:46:59 +0200
Subject: range

---
 packages/base/src/C/vector-aux.c | 8 ++++++++
 1 file changed, 8 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 b67275f..134ca7a 100644
--- a/packages/base/src/C/vector-aux.c
+++ b/packages/base/src/C/vector-aux.c
@@ -1040,3 +1040,11 @@ int div_vector(int m, KIVEC(v), IVEC(r)) {
     OK
 }
 
+int range_vector(IVEC(r)) {
+    int k;
+    for(k=0; k<rn; k++) {
+        rp[k] = k;
+    }
+    OK
+}
+
-- 
cgit v1.2.3