summaryrefslogtreecommitdiff
path: root/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs
diff options
context:
space:
mode:
authorDominic Steinitz <dominic@steinitz.org>2018-03-30 14:15:26 +0100
committerDominic Steinitz <dominic@steinitz.org>2018-03-30 14:15:26 +0100
commit5bcc77b1e115a8c8eb94a1aa1a441618bfeb0b54 (patch)
tree1471fa78eaa57e1807019fe4f10b20d2e2c27a4f /packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs
parent94d26eb8ef7cf236127e9e51bb3c46348c4c6cfc (diff)
Improve naming
Diffstat (limited to 'packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs')
-rw-r--r--packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs
index a5083e3..30ff4c8 100644
--- a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs
+++ b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs
@@ -58,8 +58,8 @@ import Numeric.LinearAlgebra.Devel (createVector)
58import Numeric.LinearAlgebra.HMatrix (Vector, Matrix, toList, (><), subMatrix) 58import Numeric.LinearAlgebra.HMatrix (Vector, Matrix, toList, (><), subMatrix)
59 59
60import qualified Types as T 60import qualified Types as T
61import Bar (sDIRK_2_1_2, kVAERNO_4_2_3) 61import Arkode (sDIRK_2_1_2, kVAERNO_4_2_3)
62import qualified Bar as B 62import qualified Arkode as B
63 63
64 64
65C.context (C.baseCtx <> C.vecCtx <> C.funCtx <> T.sunCtx) 65C.context (C.baseCtx <> C.vecCtx <> C.funCtx <> T.sunCtx)
@@ -75,7 +75,7 @@ C.include "<arkode/arkode_direct.h>" -- access to ARKDls interface
75C.include "<sundials/sundials_types.h>" -- definition of type realtype 75C.include "<sundials/sundials_types.h>" -- definition of type realtype
76C.include "<sundials/sundials_math.h>" 76C.include "<sundials/sundials_math.h>"
77C.include "../../../helpers.h" 77C.include "../../../helpers.h"
78C.include "Bar_hsc.h" 78C.include "Arkode_hsc.h"
79 79
80 80
81getDataFromContents :: Storable b => Int -> Ptr a -> IO (V.Vector b) 81getDataFromContents :: Storable b => Int -> Ptr a -> IO (V.Vector b)