commit a9465c65e99edad303d1b453da0f448524d08503
Author: Frantisek Kluknavsky <fkluknav at redhat.com>
Date: Thu Jan 17 19:47:30 2013 +0100
temporary diagnostic
wrk.patch | 16 +++++++++++++---
1 files changed, 13 insertions(+), 3 deletions(-)
---
diff --git a/wrk.patch b/wrk.patch
index 905c287..e0c2887 100644
--- a/wrk.patch
+++ b/wrk.patch
@@ -1,6 +1,6 @@
diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
--- wrk/ode-initval2/evolve.c.wrk 2013-01-17 18:48:06.473062671 +0100
-+++ wrk/ode-initval2/evolve.c 2013-01-17 19:35:12.739355883 +0100
++++ wrk/ode-initval2/evolve.c 2013-01-17 19:47:17.133019737 +0100
@@ -28,6 +28,8 @@
#include "odeiv_util.h"
@@ -37,7 +37,17 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
goto try_step;
}
else
-@@ -254,6 +260,7 @@ try_step:
+@@ -228,7 +234,8 @@ try_step:
+ {
+ *t = t0 + h0;
+ }
+-
++printf("pred con\n");
++PD(h0);
+ if (con != NULL)
+ {
+ /* Check error and attempt to adjust the step. */
+@@ -254,6 +261,7 @@ try_step:
DBL_MEMCPY (y, e->y0, dydt->dimension);
e->failed_steps++;
@@ -45,7 +55,7 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
goto try_step;
}
else
-@@ -279,6 +286,9 @@ try_step:
+@@ -279,6 +287,9 @@ try_step:
*h = h0;
}