[gsl/temp_odecrash] temporary diagnostic

[Frantisek Kluknavsky]

commit 6d0de099a3af68e47a1e0e23896148edb280bdc8
Author: Frantisek Kluknavsky <fkluknav at redhat.com>
Date:   Thu Jan 17 16:23:03 2013 +0100

    temporary diagnostic

 wrk.patch |   24 ++++++++++++++----------
 1 files changed, 14 insertions(+), 10 deletions(-)
---
diff --git a/wrk.patch b/wrk.patch
index 2876a8b..8a3f8c2 100644
--- a/wrk.patch
+++ b/wrk.patch
@@ -1,6 +1,6 @@
 diff -up wrk/ode-initval2/msbdf.c.wrk wrk/ode-initval2/msbdf.c
 --- wrk/ode-initval2/msbdf.c.wrk	2013-01-09 10:35:45.259960403 +0100
-+++ wrk/ode-initval2/msbdf.c	2013-01-17 15:56:09.906792698 +0100
++++ wrk/ode-initval2/msbdf.c	2013-01-17 16:22:54.705899325 +0100
 @@ -43,6 +43,8 @@
     framework.
  */
@@ -22,7 +22,7 @@ diff -up wrk/ode-initval2/msbdf.c.wrk wrk/ode-initval2/msbdf.c
    printf ("errcoeff=%.5e\n", *errcoeff);
  #endif
  
-+PD(l[0]);
++/*PD(l[0]);
 +PD(l[1]);
 +PD(*errcoeff);
 +PD(*ordm1coeff);
@@ -30,18 +30,22 @@ diff -up wrk/ode-initval2/msbdf.c.wrk wrk/ode-initval2/msbdf.c
 +PD(*ordp2coeff);
 +PD(*gamma);
 +printf("\n");
-+
++*/
    return GSL_SUCCESS;
  }
  
-@@ -1737,6 +1747,7 @@ msbdf_free (void *vstate)
- {
-   msbdf_state_t *state = (msbdf_state_t *) vstate;
+@@ -1466,7 +1476,10 @@ msbdf_apply (void *vstate, size_t dim, d
+   /* Calculate polynomial coefficients (l), error coefficient and
+      auxiliary coefficients
+    */
+-
++printf("%d\n", ord);
++printf("%lu\n", ordwait);
++PD(h);
++PD(hprev);
+   msbdf_calccoeffs (ord, state->ordwait, h, hprev, l, &errcoeff,
+                     &ordm1coeff, &ordp1coeff, &ordp2coeff, &gamma);
  
-+printf("ALOKUJEEEEEEEEEEEEEEEEEEEEEEEEEEM\n");
-   gsl_vector_free (state->rhs);
-   gsl_permutation_free (state->p);
-   gsl_matrix_free (state->M);
 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-17 15:18:46.759826995 +0100