diff options
Diffstat (limited to 'packages/base/src/C/vector-aux.c')
-rw-r--r-- | packages/base/src/C/vector-aux.c | 10 |
1 files changed, 10 insertions, 0 deletions
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)) { | |||
783 | OK | 783 | OK |
784 | } | 784 | } |
785 | 785 | ||
786 | //////////////////////////////////////////////////////////////////////////////// | ||
787 | |||
788 | int round_vector(KDVEC(v),DVEC(r)) { | ||
789 | int k; | ||
790 | for(k=0; k<vn; k++) { | ||
791 | rp[k] = round(vp[k]); | ||
792 | } | ||
793 | OK | ||
794 | } | ||
795 | |||