diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-06-11 13:52:44 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-06-11 13:52:44 +0200 |
commit | 4403c176938a990f51762a48e95d1f03a11adc4e (patch) | |
tree | 64523212f93fbff6c14f51099e8c0aeea7b77a46 /packages/base/src/Numeric/Vectorized.hs | |
parent | 641ee77e6d41cc7f6b1f883b4834164a93bbb306 (diff) |
roundVector
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 | |||