From 0f9575462eb37a7c9985583ca33ae315f6e6431d Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 14 May 2014 19:46:44 +0200
Subject: vectorized operations in base

---
 packages/hmatrix/src/Numeric/GSL/Vector.hs | 34 ------------------------------
 1 file changed, 34 deletions(-)

(limited to 'packages/hmatrix/src/Numeric/GSL/Vector.hs')

diff --git a/packages/hmatrix/src/Numeric/GSL/Vector.hs b/packages/hmatrix/src/Numeric/GSL/Vector.hs
index 29c8bb7..3591289 100644
--- a/packages/hmatrix/src/Numeric/GSL/Vector.hs
+++ b/packages/hmatrix/src/Numeric/GSL/Vector.hs
@@ -13,7 +13,6 @@
 module Numeric.GSL.Vector (
     sumF, sumR, sumQ, sumC,
     prodF, prodR, prodQ, prodC,
-    dotF, dotR, dotQ, dotC,
     FunCodeS(..), toScalarR, toScalarF, toScalarC, toScalarQ,
     FunCodeV(..), vectorMapR, vectorMapC, vectorMapF, vectorMapQ,
     FunCodeSV(..), vectorMapValR, vectorMapValC, vectorMapValF, vectorMapValQ,
@@ -148,39 +147,6 @@ foreign import ccall unsafe "gsl-aux.h prodR" c_prodR :: TVV
 foreign import ccall unsafe "gsl-aux.h prodQ" c_prodQ :: TQVQV
 foreign import ccall unsafe "gsl-aux.h prodC" c_prodC :: TCVCV
 
--- | dot product
-dotF :: Vector Float -> Vector Float -> Float
-dotF x y = unsafePerformIO $ do
-           r <- createVector 1
-           app3 c_dotF vec x vec y vec r "dotF"
-           return $ r @> 0
-
--- | dot product
-dotR :: Vector Double -> Vector Double -> Double
-dotR x y = unsafePerformIO $ do
-           r <- createVector 1
-           app3 c_dotR vec x vec y vec r "dotR"
-           return $ r @> 0
-
--- | dot product
-dotQ :: Vector (Complex Float) -> Vector (Complex Float) -> Complex Float
-dotQ x y = unsafePerformIO $ do
-           r <- createVector 1
-           app3 c_dotQ vec x vec y vec r "dotQ"
-           return $ r @> 0
-
--- | dot product
-dotC :: Vector (Complex Double) -> Vector (Complex Double) -> Complex Double
-dotC x y = unsafePerformIO $ do
-           r <- createVector 1
-           app3 c_dotC vec x vec y vec r "dotC"
-           return $ r @> 0
-
-foreign import ccall unsafe "gsl-aux.h dotF" c_dotF :: TFFF
-foreign import ccall unsafe "gsl-aux.h dotR" c_dotR :: TVVV
-foreign import ccall unsafe "gsl-aux.h dotQ" c_dotQ :: TQVQVQV
-foreign import ccall unsafe "gsl-aux.h dotC" c_dotC :: TCVCVCV
-
 ------------------------------------------------------------------
 
 toScalarAux fun code v = unsafePerformIO $ do
-- 
cgit v1.2.3