summaryrefslogtreecommitdiff
path: root/packages/sundials/src/Arkode.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'packages/sundials/src/Arkode.hsc')
-rw-r--r--packages/sundials/src/Arkode.hsc6
1 files changed, 6 insertions, 0 deletions
diff --git a/packages/sundials/src/Arkode.hsc b/packages/sundials/src/Arkode.hsc
index 9db37b5..558ce9e 100644
--- a/packages/sundials/src/Arkode.hsc
+++ b/packages/sundials/src/Arkode.hsc
@@ -10,6 +10,7 @@ import Foreign.C.Types
10#include <nvector/nvector_serial.h> 10#include <nvector/nvector_serial.h>
11#include <sunmatrix/sunmatrix_dense.h> 11#include <sunmatrix/sunmatrix_dense.h>
12#include <arkode/arkode.h> 12#include <arkode/arkode.h>
13#include <cvode/cvode.h>
13 14
14 15
15#def typedef struct _generic_N_Vector SunVector; 16#def typedef struct _generic_N_Vector SunVector;
@@ -40,6 +41,11 @@ getContentPtr ptr = (#peek SunVector, content) ptr
40getData :: Storable a => Ptr b -> IO a 41getData :: Storable a => Ptr b -> IO a
41getData ptr = (#peek SunContent, data) ptr 42getData ptr = (#peek SunContent, data) ptr
42 43
44cV_ADAMS :: Int
45cV_ADAMS = #const CV_ADAMS
46cV_BDF :: Int
47cV_BDF = #const CV_BDF
48
43arkSMax :: Int 49arkSMax :: Int
44arkSMax = #const ARK_S_MAX 50arkSMax = #const ARK_S_MAX
45 51