summaryrefslogtreecommitdiff
path: root/packages/hmatrix
diff options
context:
space:
mode:
Diffstat (limited to 'packages/hmatrix')
-rw-r--r--packages/hmatrix/src/Numeric/GSL/Vector.hs16
1 files changed, 1 insertions, 15 deletions
diff --git a/packages/hmatrix/src/Numeric/GSL/Vector.hs b/packages/hmatrix/src/Numeric/GSL/Vector.hs
index 7b5a617..5c34f70 100644
--- a/packages/hmatrix/src/Numeric/GSL/Vector.hs
+++ b/packages/hmatrix/src/Numeric/GSL/Vector.hs
@@ -28,7 +28,7 @@ import Numeric.Vectorized(
28 sumF, sumR, sumQ, sumC, 28 sumF, sumR, sumQ, sumC,
29 prodF, prodR, prodQ, prodC, 29 prodF, prodR, prodQ, prodC,
30 FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ, 30 FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ,
31 FunCodeV(..), vectorMapR, vectorMapF, 31 FunCodeV(..), vectorMapR, vectorMapF, vectorMapC, vectorMapQ,
32 FunCodeSV(..), vectorMapValR, vectorMapValF, 32 FunCodeSV(..), vectorMapValR, vectorMapValF,
33 FunCodeVV(..), vectorZipR, vectorZipF 33 FunCodeVV(..), vectorZipR, vectorZipF
34 ) 34 )
@@ -66,20 +66,6 @@ vectorZipAux fun code u v = unsafePerformIO $ do
66--------------------------------------------------------------------- 66---------------------------------------------------------------------
67 67
68-- | map of complex vectors with given function 68-- | map of complex vectors with given function
69vectorMapC :: FunCodeV -> Vector (Complex Double) -> Vector (Complex Double)
70vectorMapC oper = vectorMapAux c_vectorMapC (fromei oper)
71
72foreign import ccall unsafe "gsl-aux.h mapC" c_vectorMapC :: CInt -> TCVCV
73
74-- | map of real vectors with given function
75vectorMapQ :: FunCodeV -> Vector (Complex Float) -> Vector (Complex Float)
76vectorMapQ = vectorMapAux c_vectorMapQ
77
78foreign import ccall unsafe "gsl-aux.h mapQ" c_vectorMapQ :: CInt -> TQVQV
79
80-------------------------------------------------------------------
81
82-- | map of complex vectors with given function
83vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double) 69vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double)
84vectorMapValC = vectorMapValAux c_vectorMapValC 70vectorMapValC = vectorMapValAux c_vectorMapValC
85 71