From e165263e72a4300abdf3e046dc192f732f7bdc04 Mon Sep 17 00:00:00 2001
From: Frantisek Kluknavsky <fkluknav@redhat.com>
Date: Wed, 16 Jan 2013 13:43:28 +0100
Subject: [PATCH] temporary diagnostic

---
 wrk.patch | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/wrk.patch b/wrk.patch
index b77516e..e879cee 100644
--- a/wrk.patch
+++ b/wrk.patch
@@ -1,7 +1,7 @@
 diff -up wrk/ode-initval2/msbdf.c.wrk wrk/ode-initval2/msbdf.c
 diff -up wrk/ode-initval2/test.c.wrk wrk/ode-initval2/test.c
 --- wrk/ode-initval2/test.c.wrk	2013-01-09 10:48:22.051415928 +0100
-+++ wrk/ode-initval2/test.c	2013-01-16 11:24:10.877413426 +0100
++++ wrk/ode-initval2/test.c	2013-01-16 13:43:15.929791072 +0100
 @@ -923,6 +923,18 @@ rhs_ringmod (double t, const double y[],
    f[13] = (-y[0] + uin1 - (ri + rg1) * y[13]) / ls1;
    f[14] = (-y[1] - (rc + rg1) * y[14]) / ls1;
@@ -21,7 +21,7 @@ diff -up wrk/ode-initval2/test.c.wrk wrk/ode-initval2/test.c
    return GSL_SUCCESS;
  }
  
-@@ -1264,10 +1276,17 @@ sys_driver (const gsl_odeiv2_step_type *
+@@ -1264,14 +1276,21 @@ sys_driver (const gsl_odeiv2_step_type *
    nfe = 0;
    nje = 0;
    
@@ -30,15 +30,21 @@ diff -up wrk/ode-initval2/test.c.wrk wrk/ode-initval2/test.c
      {
        s = gsl_odeiv2_evolve_apply (d->e, d->c, d->s, sys, &t, t1, &h, y);
  
+-#ifdef DEBUG
 +      printf("krok %d\n\n", ++poc);
-+      int k;
++      //int k;
 +      //for (k=0; k<15; ++k) {
 +	//      printf(" %lu",(*(unsigned long int *)(&(y[k]))));
 +      //}
 +      //printf("\n");
- #ifdef DEBUG
++//#ifdef DEBUG
        printf ("%.5e %.5e %.5e %d\n", t, y[0], y[1],
                gsl_odeiv2_step_order (d->s));
+-#endif
++//#endif
+ 
+       if (s != GSL_SUCCESS)
+         {
 @@ -1959,7 +1978,7 @@ test_extreme_problems (void)
  
    /* Loop over problems */