[gsl/temp_odecrash] temporary diagnostic

[Frantisek Kluknavsky]

commit db1fac63d783669c5fce71f72b8a10df76528df7
Author: Frantisek Kluknavsky <fkluknav at redhat.com>
Date:   Wed Jan 23 17:37:05 2013 +0100

    temporary diagnostic

 wrk.patch |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)
---
diff --git a/wrk.patch b/wrk.patch
index 459ad8c..b5eb7f5 100644
--- a/wrk.patch
+++ b/wrk.patch
@@ -1,22 +1,22 @@
 diff -up wrk/ode-initval2/control.c.wrk wrk/ode-initval2/control.c
 --- wrk/ode-initval2/control.c.wrk	2013-01-23 17:06:22.402902397 +0100
-+++ wrk/ode-initval2/control.c	2013-01-23 17:07:31.046316676 +0100
++++ wrk/ode-initval2/control.c	2013-01-23 17:36:43.945159375 +0100
 @@ -78,8 +78,11 @@ gsl_odeiv2_control_hadjust (gsl_odeiv2_c
                              const double y[], const double yerr[],
                              const double dydt[], double *h)
  {
 -  return c->type->hadjust (c->state, s->dimension, s->type->order (s->state),
-+	printf("pred hadjust\n%d\n",  s->type->order (s->state));
++//	printf("pred hadjust\n%d\n",  s->type->order (s->state));
 +  int ret = c->type->hadjust (c->state, s->dimension, s->type->order (s->state),
                             y, yerr, dydt, h);
-+  printf("po hadjust\n%d\n",  s->type->order (s->state));
++ // printf("po hadjust\n%d\n",  s->type->order (s->state));
 +return ret;
  }
  
  int
 diff -up wrk/ode-initval2/cstd.c.wrk wrk/ode-initval2/cstd.c
 --- wrk/ode-initval2/cstd.c.wrk	2013-01-18 16:02:19.566833381 +0100
-+++ wrk/ode-initval2/cstd.c	2013-01-23 17:00:49.934891485 +0100
++++ wrk/ode-initval2/cstd.c	2013-01-23 17:37:01.010263153 +0100
 @@ -80,11 +80,14 @@ std_control_init (void *vstate,
    return GSL_SUCCESS;
  }
@@ -28,7 +28,7 @@ diff -up wrk/ode-initval2/cstd.c.wrk wrk/ode-initval2/cstd.c
                       const double y[], const double yerr[], const double yp[],
                       double *h)
  {
-+printf("hadjustim\n");
++//printf("hadjustim\n");
    std_control_state_t *state = (std_control_state_t *) vstate;
  
    const double eps_abs = state->eps_abs;
@@ -70,7 +70,7 @@ diff -up wrk/ode-initval2/cstd.c.wrk wrk/ode-initval2/cstd.c
      }
 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-23 17:30:24.141816833 +0100
++++ wrk/ode-initval2/evolve.c	2013-01-23 17:36:26.634053595 +0100
 @@ -28,6 +28,8 @@
  
  #include "odeiv_util.h"
@@ -115,7 +115,7 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
              
              DBL_MEMCPY (y, e->y0, dydt->dimension);
              e->failed_steps++;
-+	    printf("skacem prvy\n");
++	    //printf("skacem prvy\n");
              goto try_step;
            }
          else
@@ -132,7 +132,7 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
  
        double h_old = h0;
 -
-+ printf("pred hadjust vonku\n%d\n",  step->type->order (step->state));
++// printf("pred hadjust vonku\n%d\n",  step->type->order (step->state));
        const int hadjust_status
          =
          gsl_odeiv2_control_hadjust (con, step, y, e->yerr, e->dydt_out, &h0);
@@ -145,7 +145,7 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
  
                DBL_MEMCPY (y, e->y0, dydt->dimension);
                e->failed_steps++;
-+printf("skacem druhy\n");
++//printf("skacem druhy\n");
 +//PD(h0);
                goto try_step;
              }