Permalink
Browse files

Remove old and imccomplete implementation of symmetricmatrix

  • Loading branch information...
1 parent 93fddae commit 39caf70dd027d0214c34cf920ce4c4d90f9056c4 @Shimuuar committed Aug 27, 2012
Showing with 0 additions and 38 deletions.
  1. +0 −38 Numeric/BLAS/Matrix/Symm.hs
@@ -1,38 +0,0 @@
-{-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE DeriveDataTypeable #-}
--- | Dense matrix
-module Data.Matrix.Generic.Symm (
- -- * Matrix data type
- Symmetric
- , Hermitian
- ) where
-
-import Control.Monad.Primitive
-import Control.DeepSeq ( NFData )
-
-import Data.Typeable (Typeable)
-import Data.Vector.Storable.Internal
-import qualified Data.Vector.Generic as G
-
-import Foreign.Marshal.Array ( advancePtr )
-import Foreign.Ptr
-import Foreign.ForeignPtr
-import Foreign.Storable
-
-
-----------------------------------------------------------------
---
-----------------------------------------------------------------
-
--- | Immutable symmetric matrix
-data Symmetric a = Symmetric {-# UNPACK #-} !Int -- order of matrix
- {-# UNPACK #-} !Int -- Leading dim size
- {-# UNPACK #-} !(ForeignPtr a)
- deriving ( Typeable )
-
--- | Immutable hermitian matrix
-data Hermitian a = Hermitian {-# UNPACK #-} !Int -- order of matrix
- {-# UNPACK #-} !Int -- Leading dim size
- {-# UNPACK #-} !(ForeignPtr a)
- deriving ( Typeable )
-

0 comments on commit 39caf70

Please sign in to comment.