diff options
Diffstat (limited to 'packages/base/src/Numeric/Vectorized.hs')
-rw-r--r-- | packages/base/src/Numeric/Vectorized.hs | 11 |
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 ( | |||
19 | FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, | 19 | FunCodeVV(..), vectorZipR, vectorZipC, vectorZipF, vectorZipQ, |
20 | vectorScan, saveMatrix, | 20 | vectorScan, saveMatrix, |
21 | Seed, RandDist(..), randomVector, | 21 | Seed, RandDist(..), randomVector, |
22 | sortVector | 22 | sortVector, roundVector |
23 | ) where | 23 | ) where |
24 | 24 | ||
25 | import Data.Packed.Internal.Common | 25 | import Data.Packed.Internal.Common |
@@ -354,3 +354,12 @@ sortVector v = unsafePerformIO $ do | |||
354 | 354 | ||
355 | foreign import ccall unsafe "sort_values" c_sort_values :: TVV | 355 | foreign import ccall unsafe "sort_values" c_sort_values :: TVV |
356 | 356 | ||
357 | -------------------------------------------------------------------------------- | ||
358 | |||
359 | roundVector v = unsafePerformIO $ do | ||
360 | r <- createVector (dim v) | ||
361 | app2 c_round_vector vec v vec r "roundVector" | ||
362 | return r | ||
363 | |||
364 | foreign import ccall unsafe "round_vector" c_round_vector :: TVV | ||
365 | |||