summaryrefslogtreecommitdiff
path: root/packages/hmatrix/src/Numeric/GSL/Vector.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/hmatrix/src/Numeric/GSL/Vector.hs')
-rw-r--r--packages/hmatrix/src/Numeric/GSL/Vector.hs14
1 files changed, 1 insertions, 13 deletions
diff --git a/packages/hmatrix/src/Numeric/GSL/Vector.hs b/packages/hmatrix/src/Numeric/GSL/Vector.hs
index 7197924..7b5a617 100644
--- a/packages/hmatrix/src/Numeric/GSL/Vector.hs
+++ b/packages/hmatrix/src/Numeric/GSL/Vector.hs
@@ -30,7 +30,7 @@ import Numeric.Vectorized(
30 FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ, 30 FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ,
31 FunCodeV(..), vectorMapR, vectorMapF, 31 FunCodeV(..), vectorMapR, vectorMapF,
32 FunCodeSV(..), vectorMapValR, vectorMapValF, 32 FunCodeSV(..), vectorMapValR, vectorMapValF,
33 FunCodeVV(..) 33 FunCodeVV(..), vectorZipR, vectorZipF
34 ) 34 )
35 35
36import Data.Complex 36import Data.Complex
@@ -93,24 +93,12 @@ foreign import ccall unsafe "gsl-aux.h mapValQ" c_vectorMapValQ :: CInt -> Ptr (
93 93
94------------------------------------------------------------------- 94-------------------------------------------------------------------
95 95
96-- | elementwise operation on real vectors
97vectorZipR :: FunCodeVV -> Vector Double -> Vector Double -> Vector Double
98vectorZipR = vectorZipAux c_vectorZipR
99
100foreign import ccall unsafe "gsl-aux.h zipR" c_vectorZipR :: CInt -> TVVV
101
102-- | elementwise operation on complex vectors 96-- | elementwise operation on complex vectors
103vectorZipC :: FunCodeVV -> Vector (Complex Double) -> Vector (Complex Double) -> Vector (Complex Double) 97vectorZipC :: FunCodeVV -> Vector (Complex Double) -> Vector (Complex Double) -> Vector (Complex Double)
104vectorZipC = vectorZipAux c_vectorZipC 98vectorZipC = vectorZipAux c_vectorZipC
105 99
106foreign import ccall unsafe "gsl-aux.h zipC" c_vectorZipC :: CInt -> TCVCVCV 100foreign import ccall unsafe "gsl-aux.h zipC" c_vectorZipC :: CInt -> TCVCVCV
107 101
108-- | elementwise operation on real vectors
109vectorZipF :: FunCodeVV -> Vector Float -> Vector Float -> Vector Float
110vectorZipF = vectorZipAux c_vectorZipF
111
112foreign import ccall unsafe "gsl-aux.h zipF" c_vectorZipF :: CInt -> TFFF
113
114-- | elementwise operation on complex vectors 102-- | elementwise operation on complex vectors
115vectorZipQ :: FunCodeVV -> Vector (Complex Float) -> Vector (Complex Float) -> Vector (Complex Float) 103vectorZipQ :: FunCodeVV -> Vector (Complex Float) -> Vector (Complex Float) -> Vector (Complex Float)
116vectorZipQ = vectorZipAux c_vectorZipQ 104vectorZipQ = vectorZipAux c_vectorZipQ