temporary diagnostic

wrk.patch

@@ -20,27 +20,5 @@ diff -up wrk/ode-initval2/test.c.wrk wrk/ode-initval2/test.c
 +*/
    return GSL_SUCCESS;
  }
- 
-@@ -1264,13 +1276,20 @@ sys_driver (const gsl_odeiv2_step_type *
-   nfe = 0;
-   nje = 0;
-   
-+  int poc=0;
-   while (t < t1)
-     {
-       s = gsl_odeiv2_evolve_apply (d->e, d->c, d->s, sys, &t, t1, &h, y);
- 
-+      printf("\nkrok %d\n", ++poc);
-+      int k;
-+      for (k=0; k<15; ++k) {
-+	printf(" %lu\n",(*(unsigned long int *)(&(y[k]))));
-+      }
-+      //printf("\n");
- #ifdef DEBUG
-       printf ("%.5e %.5e %.5e %d\n", t, y[0], y[1],
--              gsl_odeiv2_step_order (d->s));
-+      		gsl_odeiv2_step_order (d->s));
- #endif
- 
-       if (s != GSL_SUCCESS)
+