summaryrefslogtreecommitdiff
path: root/packages/sundials/src/Numeric/Sundials/CVode/ODE.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/sundials/src/Numeric/Sundials/CVode/ODE.hs')
-rw-r--r--packages/sundials/src/Numeric/Sundials/CVode/ODE.hs8
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)
90import Numeric.LinearAlgebra.HMatrix (Vector, Matrix, toList, rows, 90import Numeric.LinearAlgebra.HMatrix (Vector, Matrix, toList, rows,
91 cols, toLists, size, reshape) 91 cols, toLists, size, reshape)
92 92
93import qualified Types as T 93import qualified Numeric.Sundials.CLangToHaskellTypes as T
94import Arkode (cV_ADAMS, cV_BDF) 94import Numeric.Sundials.Arkode (cV_ADAMS, cV_BDF)
95import Numeric.Sundials.ODEOpts (ODEOpts(..), Jacobian) 95import Numeric.Sundials.ODEOpts (ODEOpts(..), Jacobian)
96import qualified Numeric.Sundials.ODEOpts as SO 96import qualified Numeric.Sundials.ODEOpts as SO
97 97
@@ -109,7 +109,7 @@ C.include "<cvode/cvode_direct.h>" -- access to CVDls interface
109C.include "<sundials/sundials_types.h>" -- definition of type realtype 109C.include "<sundials/sundials_types.h>" -- definition of type realtype
110C.include "<sundials/sundials_math.h>" 110C.include "<sundials/sundials_math.h>"
111C.include "../../../helpers.h" 111C.include "../../../helpers.h"
112C.include "Arkode_hsc.h" 112C.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