1 files changed, 25 insertions, 0 deletions

diff --git a/packages/sundials/src/Arkode.hsc b/packages/sundials/src/Arkode.hsc
index 2904c36..4ef95e2 100644
--- a/packages/sundials/src/Arkode.hsc
+++ b/packages/sundials/src/Arkode.hsc
@@ -46,6 +46,8 @@ arkSMax :: Int
 arkSMax = #const ARK_S_MAX
 
 -- FIXME: We could just use inline-c instead
+
+-- /* Butcher table accessors -- implicit */
 sDIRK_2_1_2 :: Int
 sDIRK_2_1_2 = #const SDIRK_2_1_2
 -- #define BILLINGTON_3_3_2        13
@@ -67,3 +69,26 @@ sDIRK_5_3_4 = #const SDIRK_5_3_4
 -- #define DEFAULT_DIRK_3          ARK324L2SA_DIRK_4_2_3
 -- #define DEFAULT_DIRK_4          SDIRK_5_3_4
 -- #define DEFAULT_DIRK_5          ARK548L2SA_DIRK_8_4_5
+
+-- /* Butcher table accessors -- explicit */
+-- #define HEUN_EULER_2_1_2         0
+-- #define BOGACKI_SHAMPINE_4_2_3   1
+-- #define ARK324L2SA_ERK_4_2_3     2
+-- #define ZONNEVELD_5_3_4          3
+-- #define ARK436L2SA_ERK_6_3_4     4
+-- #define SAYFY_ABURUB_6_3_4       5
+-- #define CASH_KARP_6_4_5          6
+fEHLBERG_6_4_5 :: Int
+fEHLBERG_6_4_5 = #const FEHLBERG_6_4_5
+-- #define FEHLBERG_6_4_5           7
+-- #define DORMAND_PRINCE_7_4_5     8
+-- #define ARK548L2SA_ERK_8_4_5     9
+-- #define VERNER_8_5_6            10
+-- #define FEHLBERG_13_7_8         11
+
+-- #define DEFAULT_ERK_2           HEUN_EULER_2_1_2
+-- #define DEFAULT_ERK_3           BOGACKI_SHAMPINE_4_2_3
+-- #define DEFAULT_ERK_4           ZONNEVELD_5_3_4
+-- #define DEFAULT_ERK_5           CASH_KARP_6_4_5
+-- #define DEFAULT_ERK_6           VERNER_8_5_6
+-- #define DEFAULT_ERK_8           FEHLBERG_13_7_8