From 348235b04519f7420a2149e979d076302f869ed9 Mon Sep 17 00:00:00 2001 From: Dominic Steinitz Date: Thu, 29 Mar 2018 08:34:37 +0100 Subject: Remove debug info --- packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs | 19 ------------------- 1 file changed, 19 deletions(-) (limited to 'packages/sundials') diff --git a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs index 2ede918..44b724e 100644 --- a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs +++ b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs @@ -263,25 +263,6 @@ solveOdeC method relTol absTol fun f0 ts = unsafePerformIO $ do flag = ARKodeSetIRKTableNum(arkode_mem, $(int method)); if (check_flag(&flag, "ARKode", 1)) return 1; - int s, q, p; - realtype *ai = (realtype *)malloc(ARK_S_MAX * ARK_S_MAX * sizeof(realtype)); - realtype *ae = (realtype *)malloc(ARK_S_MAX * ARK_S_MAX * sizeof(realtype)); - realtype *ci = (realtype *)malloc(ARK_S_MAX * sizeof(realtype)); - realtype *ce = (realtype *)malloc(ARK_S_MAX * sizeof(realtype)); - realtype *bi = (realtype *)malloc(ARK_S_MAX * sizeof(realtype)); - realtype *be = (realtype *)malloc(ARK_S_MAX * sizeof(realtype)); - realtype *b2i = (realtype *)malloc(ARK_S_MAX * sizeof(realtype)); - realtype *b2e = (realtype *)malloc(ARK_S_MAX * sizeof(realtype)); - flag = ARKodeGetCurrentButcherTables(arkode_mem, &s, &q, &p, ai, ae, ci, ce, bi, be, b2i, b2e); - if (check_flag(&flag, "ARKode", 1)) return 1; - fprintf(stderr, "s = %d, q = %d, p = %d\n", s, q, p); - for (i = 0; i < s; i++) { - for (j = 0; j < s; j++) { - fprintf(stderr, "ai[%d,%d] = %f", i, j, ai[i * ARK_S_MAX + j]); - } - fprintf(stderr, "\n"); - } - /* Main time-stepping loop: calls ARKode to perform the integration */ /* Stops when the final time has been reached */ for (i = 1; i < $(int nTs); i++) { -- cgit v1.2.3