[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