rpms/gsl
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

temporary diagnostic

Browse Source
This commit is contained in:
Frantisek Kluknavsky 2013-01-17 19:47:30 +01:00
parent 21c386cc36
commit a9465c65e9
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
wrk.patch
View File

@ -1,6 +1,6 @@
diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.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.wrk 2013-01-17 18:48:06.473062671 +0100
+++ wrk/ode-initval2/evolve.c 2013-01-17 19:35:12.739355883 +0100 +++ wrk/ode-initval2/evolve.c 2013-01-17 19:47:17.133019737 +0100
@@ -28,6 +28,8 @@ @@ -28,6 +28,8 @@
#include "odeiv_util.h" #include "odeiv_util.h"
@ -37,7 +37,17 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
goto try_step; goto try_step;
} }
else else
@@ -254,6 +260,7 @@ try_step: @@ -228,7 +234,8 @@ try_step:
{
*t = t0 + h0;
}
-
+printf("pred con\n");
+PD(h0);
if (con != NULL)
{
/* Check error and attempt to adjust the step. */
@@ -254,6 +261,7 @@ try_step:
DBL_MEMCPY (y, e->y0, dydt->dimension); DBL_MEMCPY (y, e->y0, dydt->dimension);
e->failed_steps++; e->failed_steps++;
@ -45,7 +55,7 @@ diff -up wrk/ode-initval2/evolve.c.wrk wrk/ode-initval2/evolve.c
goto try_step; goto try_step;
} }
else else
@@ -279,6 +286,9 @@ try_step: @@ -279,6 +287,9 @@ try_step:
*h = h0; *h = h0;
} }