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.hsc70
1 files changed, 46 insertions, 24 deletions
diff --git a/packages/sundials/src/Arkode.hsc b/packages/sundials/src/Arkode.hsc
index 4ef95e2..023d102 100644
--- a/packages/sundials/src/Arkode.hsc
+++ b/packages/sundials/src/Arkode.hsc
@@ -45,46 +45,68 @@ getData ptr = (#peek SunContent, data) ptr
45arkSMax :: Int 45arkSMax :: Int
46arkSMax = #const ARK_S_MAX 46arkSMax = #const ARK_S_MAX
47 47
48mIN_DIRK_NUM, mAX_DIRK_NUM :: Int
49mIN_DIRK_NUM = #const MIN_DIRK_NUM
50mAX_DIRK_NUM = #const MAX_DIRK_NUM
51
48-- FIXME: We could just use inline-c instead 52-- FIXME: We could just use inline-c instead
49 53
50-- /* Butcher table accessors -- implicit */ 54-- Butcher table accessors -- implicit
51sDIRK_2_1_2 :: Int 55sDIRK_2_1_2 :: Int
52sDIRK_2_1_2 = #const SDIRK_2_1_2 56sDIRK_2_1_2 = #const SDIRK_2_1_2
53-- #define BILLINGTON_3_3_2 13 57bILLINGTON_3_3_2 :: Int
54-- #define TRBDF2_3_3_2 14 58bILLINGTON_3_3_2 = #const BILLINGTON_3_3_2
59tRBDF2_3_3_2 :: Int
60tRBDF2_3_3_2 = #const TRBDF2_3_3_2
55kVAERNO_4_2_3 :: Int 61kVAERNO_4_2_3 :: Int
56kVAERNO_4_2_3 = #const KVAERNO_4_2_3 62kVAERNO_4_2_3 = #const KVAERNO_4_2_3
57-- #define ARK324L2SA_DIRK_4_2_3 16 63aRK324L2SA_DIRK_4_2_3 :: Int
58-- #define CASH_5_2_4 17 64aRK324L2SA_DIRK_4_2_3 = #const ARK324L2SA_DIRK_4_2_3
59-- #define CASH_5_3_4 18 65cASH_5_2_4 :: Int
60-- #define SDIRK_5_3_4 19 66cASH_5_2_4 = #const CASH_5_2_4
67cASH_5_3_4 :: Int
68cASH_5_3_4 = #const CASH_5_3_4
61sDIRK_5_3_4 :: Int 69sDIRK_5_3_4 :: Int
62sDIRK_5_3_4 = #const SDIRK_5_3_4 70sDIRK_5_3_4 = #const SDIRK_5_3_4
63-- #define KVAERNO_5_3_4 20 71kVAERNO_5_3_4 :: Int
64-- #define ARK436L2SA_DIRK_6_3_4 21 72kVAERNO_5_3_4 = #const KVAERNO_5_3_4
65-- #define KVAERNO_7_4_5 22 73aRK436L2SA_DIRK_6_3_4 :: Int
66-- #define ARK548L2SA_DIRK_8_4_5 23 74aRK436L2SA_DIRK_6_3_4 = #const ARK436L2SA_DIRK_6_3_4
75kVAERNO_7_4_5 :: Int
76kVAERNO_7_4_5 = #const KVAERNO_7_4_5
77aRK548L2SA_DIRK_8_4_5 :: Int
78aRK548L2SA_DIRK_8_4_5 = #const ARK548L2SA_DIRK_8_4_5
67 79
68-- #define DEFAULT_DIRK_2 SDIRK_2_1_2 80-- #define DEFAULT_DIRK_2 SDIRK_2_1_2
69-- #define DEFAULT_DIRK_3 ARK324L2SA_DIRK_4_2_3 81-- #define DEFAULT_DIRK_3 ARK324L2SA_DIRK_4_2_3
70-- #define DEFAULT_DIRK_4 SDIRK_5_3_4 82-- #define DEFAULT_DIRK_4 SDIRK_5_3_4
71-- #define DEFAULT_DIRK_5 ARK548L2SA_DIRK_8_4_5 83-- #define DEFAULT_DIRK_5 ARK548L2SA_DIRK_8_4_5
72 84
73-- /* Butcher table accessors -- explicit */ 85-- Butcher table accessors -- explicit
74-- #define HEUN_EULER_2_1_2 0 86hEUN_EULER_2_1_2 :: Int
75-- #define BOGACKI_SHAMPINE_4_2_3 1 87hEUN_EULER_2_1_2 = #const HEUN_EULER_2_1_2
76-- #define ARK324L2SA_ERK_4_2_3 2 88bOGACKI_SHAMPINE_4_2_3 :: Int
77-- #define ZONNEVELD_5_3_4 3 89bOGACKI_SHAMPINE_4_2_3 = #const BOGACKI_SHAMPINE_4_2_3
78-- #define ARK436L2SA_ERK_6_3_4 4 90aRK324L2SA_ERK_4_2_3 :: Int
79-- #define SAYFY_ABURUB_6_3_4 5 91aRK324L2SA_ERK_4_2_3 = #const ARK324L2SA_ERK_4_2_3
80-- #define CASH_KARP_6_4_5 6 92zONNEVELD_5_3_4 :: Int
93zONNEVELD_5_3_4 = #const ZONNEVELD_5_3_4
94aRK436L2SA_ERK_6_3_4 :: Int
95aRK436L2SA_ERK_6_3_4 = #const ARK436L2SA_ERK_6_3_4
96sAYFY_ABURUB_6_3_4 :: Int
97sAYFY_ABURUB_6_3_4 = #const SAYFY_ABURUB_6_3_4
98cASH_KARP_6_4_5 :: Int
99cASH_KARP_6_4_5 = #const CASH_KARP_6_4_5
81fEHLBERG_6_4_5 :: Int 100fEHLBERG_6_4_5 :: Int
82fEHLBERG_6_4_5 = #const FEHLBERG_6_4_5 101fEHLBERG_6_4_5 = #const FEHLBERG_6_4_5
83-- #define FEHLBERG_6_4_5 7 102dORMAND_PRINCE_7_4_5 :: Int
84-- #define DORMAND_PRINCE_7_4_5 8 103dORMAND_PRINCE_7_4_5 = #const DORMAND_PRINCE_7_4_5
85-- #define ARK548L2SA_ERK_8_4_5 9 104aRK548L2SA_ERK_8_4_5 :: Int
86-- #define VERNER_8_5_6 10 105aRK548L2SA_ERK_8_4_5 = #const ARK548L2SA_ERK_8_4_5
87-- #define FEHLBERG_13_7_8 11 106vERNER_8_5_6 :: Int
107vERNER_8_5_6 = #const VERNER_8_5_6
108fEHLBERG_13_7_8 :: Int
109fEHLBERG_13_7_8 = #const FEHLBERG_13_7_8
88 110
89-- #define DEFAULT_ERK_2 HEUN_EULER_2_1_2 111-- #define DEFAULT_ERK_2 HEUN_EULER_2_1_2
90-- #define DEFAULT_ERK_3 BOGACKI_SHAMPINE_4_2_3 112-- #define DEFAULT_ERK_3 BOGACKI_SHAMPINE_4_2_3