Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Group things

  • Loading branch information...
commit 181101ba80c7d55157da888c452205472d63b741 1 parent 18d4a5e
@Shimuuar authored
Showing with 11 additions and 5 deletions.
  1. +11 −5 Numeric/BLAS.hs
View
16 Numeric/BLAS.hs
@@ -159,7 +159,7 @@ instance (BLAS1 a) => Scale V.Vector a where
----------------------------------------------------------------
--- Vector x Vector
+-- Dot product
----------------------------------------------------------------
instance (BLAS1 a, a ~ a') => Mul (Transposed S.Vector a) (S.Vector a') where
@@ -176,7 +176,10 @@ instance (BLAS1 a, a ~ a') => Mul (Transposed V.Vector a) (V.Vector a') where
{-# INLINE (.*.) #-}
--- == Vector x Vector => Matrix ====
+
+----------------------------------------------------------------
+-- Vector x Vector => Matrix
+----------------------------------------------------------------
instance (BLAS2 a, a ~ a') => Mul (S.Vector a) (Transposed S.Vector a') where
type MulRes ( S.Vector a )
@@ -208,11 +211,10 @@ instance (BLAS2 a, a ~ a') => Mul (V.Vector a) (Conjugated V.Vector a') where
----------------------------------------------------------------
--- Matrix x Vector
+-- Dense matrix x Vector
----------------------------------------------------------------
-- Strided
-
instance (BLAS2 a, a ~ a') => Mul (Matrix a) (V.Vector a') where
type MulRes (Matrix a )
(V.Vector a')
@@ -233,7 +235,6 @@ instance (BLAS2 a, a ~ a') => Mul (Conjugated Matrix a) (V.Vector a') where
{-# INLINE (.*.) #-}
-- Storable
-
instance (BLAS2 a, a ~ a') => Mul (Matrix a) (S.Vector a') where
type MulRes (Matrix a )
(S.Vector a')
@@ -254,6 +255,11 @@ instance (BLAS2 a, a ~ a') => Mul (Conjugated Matrix a) (S.Vector a') where
{-# INLINE (.*.) #-}
+
+----------------------------------------------------------------
+-- Symmetric matrix x Vector
+----------------------------------------------------------------
+
instance (BLAS2 a, Conjugate a, a ~ a') => Mul (SymmetricRaw IsHermitian a) (S.Vector a') where
type MulRes (SymmetricRaw IsHermitian a)
(S.Vector a')
Please sign in to comment.
Something went wrong with that request. Please try again.