diff options
Diffstat (limited to 'packages/sundials/src/Bar.hsc')
-rw-r--r-- | packages/sundials/src/Bar.hsc | 23 |
1 files changed, 20 insertions, 3 deletions
diff --git a/packages/sundials/src/Bar.hsc b/packages/sundials/src/Bar.hsc index 7db0d4a..7d53af9 100644 --- a/packages/sundials/src/Bar.hsc +++ b/packages/sundials/src/Bar.hsc | |||
@@ -23,6 +23,23 @@ getData ptr = (#peek BazType, data) ptr | |||
23 | arkSMax :: Int | 23 | arkSMax :: Int |
24 | arkSMax = #const ARK_S_MAX | 24 | arkSMax = #const ARK_S_MAX |
25 | 25 | ||
26 | 26 | -- FIXME: We could just use inline-c instead | |
27 | 27 | sDIRK_2_1_2 :: Int | |
28 | 28 | sDIRK_2_1_2 = #const SDIRK_2_1_2 | |
29 | -- #define BILLINGTON_3_3_2 13 | ||
30 | -- #define TRBDF2_3_3_2 14 | ||
31 | kVAERNO_4_2_3 :: Int | ||
32 | kVAERNO_4_2_3 = #const KVAERNO_4_2_3 | ||
33 | -- #define ARK324L2SA_DIRK_4_2_3 16 | ||
34 | -- #define CASH_5_2_4 17 | ||
35 | -- #define CASH_5_3_4 18 | ||
36 | -- #define SDIRK_5_3_4 19 | ||
37 | -- #define KVAERNO_5_3_4 20 | ||
38 | -- #define ARK436L2SA_DIRK_6_3_4 21 | ||
39 | -- #define KVAERNO_7_4_5 22 | ||
40 | -- #define ARK548L2SA_DIRK_8_4_5 23 | ||
41 | |||
42 | -- #define DEFAULT_DIRK_2 SDIRK_2_1_2 | ||
43 | -- #define DEFAULT_DIRK_3 ARK324L2SA_DIRK_4_2_3 | ||
44 | -- #define DEFAULT_DIRK_4 SDIRK_5_3_4 | ||
45 | -- #define DEFAULT_DIRK_5 ARK548L2SA_DIRK_8_4_5 | ||