diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-05-25 08:46:59 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-05-25 08:46:59 +0200 |
| commit | 11095a22c59bed6a011723641dfb782415e2c02b (patch) | |
| tree | fde840b71f395077b274a15ae3e0e3935d06818c /packages/base/src/C/vector-aux.c | |
| parent | 88a39a5d1bdf7799a2e1f38d420f4392bb9c35bc (diff) | |
range
Diffstat (limited to 'packages/base/src/C/vector-aux.c')
| -rw-r--r-- | packages/base/src/C/vector-aux.c | 8 |
1 files changed, 8 insertions, 0 deletions
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)) { | |||
| 1040 | OK | 1040 | OK |
| 1041 | } | 1041 | } |
| 1042 | 1042 | ||
| 1043 | int range_vector(IVEC(r)) { | ||
| 1044 | int k; | ||
| 1045 | for(k=0; k<rn; k++) { | ||
| 1046 | rp[k] = k; | ||
| 1047 | } | ||
| 1048 | OK | ||
| 1049 | } | ||
| 1050 | |||