diff options
author | Alberto Ruiz <aruiz@um.es> | 2014-05-08 13:43:07 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2014-05-08 13:43:07 +0200 |
commit | 551cf7498c33bc0948bb4cb8444ae6f8af7278ea (patch) | |
tree | ec86ff73151746f5e13b83549ea5c60ed442764d /packages/hmatrix/src/Numeric/GSL/ODE.hs | |
parent | 561a6c0e21bb77c21114ccbbd86d3af5ddb5a3f1 (diff) |
separation ok
Diffstat (limited to 'packages/hmatrix/src/Numeric/GSL/ODE.hs')
-rw-r--r-- | packages/hmatrix/src/Numeric/GSL/ODE.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/packages/hmatrix/src/Numeric/GSL/ODE.hs b/packages/hmatrix/src/Numeric/GSL/ODE.hs index 9a29085..7549a65 100644 --- a/packages/hmatrix/src/Numeric/GSL/ODE.hs +++ b/packages/hmatrix/src/Numeric/GSL/ODE.hs | |||
@@ -2,10 +2,8 @@ | |||
2 | Module : Numeric.GSL.ODE | 2 | Module : Numeric.GSL.ODE |
3 | Copyright : (c) Alberto Ruiz 2010 | 3 | Copyright : (c) Alberto Ruiz 2010 |
4 | License : GPL | 4 | License : GPL |
5 | 5 | Maintainer : Alberto Ruiz | |
6 | Maintainer : Alberto Ruiz (aruiz at um dot es) | ||
7 | Stability : provisional | 6 | Stability : provisional |
8 | Portability : uses ffi | ||
9 | 7 | ||
10 | Solution of ordinary differential equation (ODE) initial value problems. | 8 | Solution of ordinary differential equation (ODE) initial value problems. |
11 | 9 | ||
@@ -34,7 +32,7 @@ module Numeric.GSL.ODE ( | |||
34 | odeSolve, odeSolveV, ODEMethod(..), Jacobian | 32 | odeSolve, odeSolveV, ODEMethod(..), Jacobian |
35 | ) where | 33 | ) where |
36 | 34 | ||
37 | import Data.Packed.Internal | 35 | import Data.Packed |
38 | import Numeric.GSL.Internal | 36 | import Numeric.GSL.Internal |
39 | 37 | ||
40 | import Foreign.Ptr(FunPtr, nullFunPtr, freeHaskellFunPtr) | 38 | import Foreign.Ptr(FunPtr, nullFunPtr, freeHaskellFunPtr) |
@@ -43,6 +41,10 @@ import System.IO.Unsafe(unsafePerformIO) | |||
43 | 41 | ||
44 | ------------------------------------------------------------------------- | 42 | ------------------------------------------------------------------------- |
45 | 43 | ||
44 | type TVV = TV (TV Res) | ||
45 | type TVM = TV (TM Res) | ||
46 | type TVVM = TV (TV (TM Res)) | ||
47 | |||
46 | type Jacobian = Double -> Vector Double -> Matrix Double | 48 | type Jacobian = Double -> Vector Double -> Matrix Double |
47 | 49 | ||
48 | -- | Stepping functions | 50 | -- | Stepping functions |