diff options
Diffstat (limited to 'packages/sundials/src/Numeric/Sundials/CVode/ODE.hs')
-rw-r--r-- | packages/sundials/src/Numeric/Sundials/CVode/ODE.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/packages/sundials/src/Numeric/Sundials/CVode/ODE.hs b/packages/sundials/src/Numeric/Sundials/CVode/ODE.hs index 0871f9b..1cd072f 100644 --- a/packages/sundials/src/Numeric/Sundials/CVode/ODE.hs +++ b/packages/sundials/src/Numeric/Sundials/CVode/ODE.hs | |||
@@ -90,8 +90,8 @@ import Numeric.LinearAlgebra.Devel (createVector) | |||
90 | import Numeric.LinearAlgebra.HMatrix (Vector, Matrix, toList, rows, | 90 | import Numeric.LinearAlgebra.HMatrix (Vector, Matrix, toList, rows, |
91 | cols, toLists, size, reshape) | 91 | cols, toLists, size, reshape) |
92 | 92 | ||
93 | import qualified Types as T | 93 | import qualified Numeric.Sundials.CLangToHaskellTypes as T |
94 | import Arkode (cV_ADAMS, cV_BDF) | 94 | import Numeric.Sundials.Arkode (cV_ADAMS, cV_BDF) |
95 | import Numeric.Sundials.ODEOpts (ODEOpts(..), Jacobian) | 95 | import Numeric.Sundials.ODEOpts (ODEOpts(..), Jacobian) |
96 | import qualified Numeric.Sundials.ODEOpts as SO | 96 | import qualified Numeric.Sundials.ODEOpts as SO |
97 | 97 | ||
@@ -109,7 +109,7 @@ C.include "<cvode/cvode_direct.h>" -- access to CVDls interface | |||
109 | C.include "<sundials/sundials_types.h>" -- definition of type realtype | 109 | C.include "<sundials/sundials_types.h>" -- definition of type realtype |
110 | C.include "<sundials/sundials_math.h>" | 110 | C.include "<sundials/sundials_math.h>" |
111 | C.include "../../../helpers.h" | 111 | C.include "../../../helpers.h" |
112 | C.include "Arkode_hsc.h" | 112 | C.include "Numeric/Sundials/Arkode_hsc.h" |
113 | 113 | ||
114 | 114 | ||
115 | -- | Stepping functions | 115 | -- | Stepping functions |
@@ -252,7 +252,7 @@ solveOdeC maxNumSteps_ minStep_ method initStepSize jacH (aTols, rTol) fun f0 ts | |||
252 | diagnostics :: V.Vector CLong <- createVector 10 -- FIXME | 252 | diagnostics :: V.Vector CLong <- createVector 10 -- FIXME |
253 | diagMut <- V.thaw diagnostics | 253 | diagMut <- V.thaw diagnostics |
254 | -- We need the types that sundials expects. These are tied together | 254 | -- We need the types that sundials expects. These are tied together |
255 | -- in 'Types'. FIXME: The Haskell type is currently empty! | 255 | -- in 'CLangToHaskellTypes'. FIXME: The Haskell type is currently empty! |
256 | let funIO :: CDouble -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr () -> IO CInt | 256 | let funIO :: CDouble -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr () -> IO CInt |
257 | funIO x y f _ptr = do | 257 | funIO x y f _ptr = do |
258 | -- Convert the pointer we get from C (y) to a vector, and then | 258 | -- Convert the pointer we get from C (y) to a vector, and then |