From a9465c65e99edad303d1b453da0f448524d08503 Mon Sep 17 00:00:00 2001
From: Frantisek Kluknavsky <fkluknav@redhat.com>
Date: Thu, 17 Jan 2013 19:47:30 +0100
Subject: [PATCH] temporary diagnostic

---
 wrk.patch | 16 +++++++++++++---
 1 file 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;
      }