2 files changed, 25 insertions, 8 deletions

diff --git a/hmatrix.cabal b/hmatrix.cabal
index 049d4d5..a772746 100644
--- a/hmatrix.cabal
+++ b/hmatrix.cabal
@@ -49,7 +49,6 @@ extra-source-files: examples/deriv.hs
                     examples/devel/ej1/functions.c
                     examples/devel/ej2/wrappers.hs
                     examples/devel/ej2/functions.c
-                    examples/Real.hs
                     examples/vector.hs
                     examples/monadic.hs
                     examples/bool.hs
@@ -87,7 +86,7 @@ library
     Build-Depends:      base >= 4 && < 5,
                         array,
                         storable-complex,
-                        process,
+                        process, random,
                         vector >= 0.8,
                         binary
 
@@ -111,6 +110,7 @@ library
                         Numeric.LinearAlgebra,
                         Numeric.LinearAlgebra.LAPACK,
                         Numeric.LinearAlgebra.Algorithms,
+                        Numeric.LinearAlgebra.Real,
                         Graphics.Plot,
                         Data.Packed.ST,
                         Data.Packed.Development
diff --git a/examples/Real.hs b/lib/Numeric/LinearAlgebra/Real.hs
index 9083b87..6cba045 100644
--- a/examples/Real.hs
+++ b/lib/Numeric/LinearAlgebra/Real.hs
@@ -1,10 +1,21 @@
+-----------------------------------------------------------------------------
+{- |
+Module      :  Numeric.LinearAlgebra.Real
+Copyright   :  (c) Alberto Ruiz 2012
+License     :  GPL
 
--- Alternative interface and utilities for creation of real arrays, useful to work in interactive mode.
+Maintainer  :  Alberto Ruiz (aruiz at um dot es)
+Stability   :  provisional
 
-module Real(
-    module Numeric.LinearAlgebra,
+Additional functions for real arrays.
+
+-}
+-----------------------------------------------------------------------------
+
+module Numeric.LinearAlgebra.Real(
     (<>), (*>), (<*), (<\>), (\>),
     vector,
+    linspace,
     eye,
     zeros, ones,
     diagl,
@@ -14,9 +25,14 @@ module Real(
     rand, randn
 ) where
 
-import Numeric.LinearAlgebra hiding ((<>), (<\>))
+import Numeric.LinearAlgebra hiding ((<>), (<\>), linspace)
+import qualified Numeric.LinearAlgebra as LA
 import System.Random(randomIO)
 
+linspace :: Int -> (Double,Double) -> Vector Double
+linspace = LA.linspace
+
+
 infixl 7 <>
 -- | Matrix product ('multiply')
 (<>) :: Field t => Matrix t -> Matrix t -> Matrix t
@@ -95,15 +111,16 @@ infixl 8 &
 a & b = fromBlocks [[a,b]]
 
 -- | Vertical concatenation of real matrices.
-infixl 7 //
 (//) :: Matrix Double -> Matrix Double -> Matrix Double
+infixl 7  //
 a // b = fromBlocks [[a],[b]]
 
+
 -- | Real block matrix from a rectangular list of lists.
 blocks :: [[Matrix Double]] -> Matrix Double
 blocks = fromBlocks
 
--- | A real matrix with a single row, create from a list of elements.
+-- | A real matrix with a single row, created from a list of elements.
 row :: [Double] -> Matrix Double
 row = asRow . vector