[gsl/temp_odecrash] temporary diagnostic

Frantisek Kluknavsky fkluknav at fedoraproject.org
Thu Jan 17 13:10:26 UTC 2013


commit c58265d8bd059ddfca1a77ac19d1f9328e035add
Author: Frantisek Kluknavsky <fkluknav at redhat.com>
Date:   Wed Jan 16 21:45:47 2013 +0100

    temporary diagnostic

 wrk.patch |   24 +-----------------------
 1 files changed, 1 insertions(+), 23 deletions(-)
---
diff --git a/wrk.patch b/wrk.patch
index 48365c5..5fcef9f 100644
--- a/wrk.patch
+++ b/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)
+
 


More information about the scm-commits mailing list