From f34e120d08154dc97130eca2bc569d3cdd199270 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 15 May 2014 17:39:34 +0200 Subject: moved map complex --- packages/hmatrix/src/Numeric/GSL/Vector.hs | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'packages/hmatrix/src/Numeric/GSL') 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( sumF, sumR, sumQ, sumC, prodF, prodR, prodQ, prodC, FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ, - FunCodeV(..), vectorMapR, vectorMapF, + FunCodeV(..), vectorMapR, vectorMapF, vectorMapC, vectorMapQ, FunCodeSV(..), vectorMapValR, vectorMapValF, FunCodeVV(..), vectorZipR, vectorZipF ) @@ -65,20 +65,6 @@ vectorZipAux fun code u v = unsafePerformIO $ do --------------------------------------------------------------------- --- | map of complex vectors with given function -vectorMapC :: FunCodeV -> Vector (Complex Double) -> Vector (Complex Double) -vectorMapC oper = vectorMapAux c_vectorMapC (fromei oper) - -foreign import ccall unsafe "gsl-aux.h mapC" c_vectorMapC :: CInt -> TCVCV - --- | map of real vectors with given function -vectorMapQ :: FunCodeV -> Vector (Complex Float) -> Vector (Complex Float) -vectorMapQ = vectorMapAux c_vectorMapQ - -foreign import ccall unsafe "gsl-aux.h mapQ" c_vectorMapQ :: CInt -> TQVQV - -------------------------------------------------------------------- - -- | map of complex vectors with given function vectorMapValC :: FunCodeSV -> Complex Double -> Vector (Complex Double) -> Vector (Complex Double) vectorMapValC = vectorMapValAux c_vectorMapValC -- cgit v1.2.3