roundVector

1 files changed, 10 insertions, 1 deletions

diff --git a/packages/base/src/Numeric/Vectorized.hs b/packages/base/src/Numeric/Vectorized.hs
index 82504a9..936daba 100644
--- a/packages/base/src/Numeric/Vectorized.hs
+++ b/packages/base/src/Numeric/Vectorized.hs
@@ -19,7 +19,7 @@ module Numeric.Vectorized (
     FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ,
     vectorScan, saveMatrix,
     Seed, RandDist(..), randomVector,
-    sortVector
+    sortVector, roundVector
 ) where
 
 import Data.Packed.Internal.Common
@@ -354,3 +354,12 @@ sortVector v = unsafePerformIO $ do
 
 foreign import ccall unsafe "sort_values" c_sort_values :: TVV
 
+--------------------------------------------------------------------------------
+
+roundVector v = unsafePerformIO $ do
+    r <- createVector (dim v)
+    app2 c_round_vector vec v vec r "roundVector"
+    return r
+
+foreign import ccall unsafe "round_vector" c_round_vector :: TVV
+