From 32039434e99d58e7cd69bdc549039dec63940766 Mon Sep 17 00:00:00 2001 From: Frantisek Kluknavsky Date: Mon, 21 Jan 2013 11:00:04 +0100 Subject: [PATCH] temporary diagnostic --- wrk.patch | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/wrk.patch b/wrk.patch index 43c24fb..d7f24e3 100644 --- a/wrk.patch +++ b/wrk.patch @@ -1,6 +1,6 @@ diff -up wrk/ode-initval2/cstd.c.wrk wrk/ode-initval2/cstd.c --- wrk/ode-initval2/cstd.c.wrk 2013-01-18 16:02:19.566833381 +0100 -+++ wrk/ode-initval2/cstd.c 2013-01-18 16:10:37.126101180 +0100 ++++ wrk/ode-initval2/cstd.c 2013-01-21 10:59:17.113888393 +0100 @@ -85,6 +85,7 @@ std_control_hadjust (void *vstate, size_ const double y[], const double yerr[], const double yp[], double *h) @@ -25,6 +25,14 @@ diff -up wrk/ode-initval2/cstd.c.wrk wrk/ode-initval2/cstd.c /* increase step, no more than factor of 5 */ double r = S / pow (rmax, 1.0 / (ord + 1.0)); +@@ -137,6 +140,7 @@ std_control_hadjust (void *vstate, size_ + } + else + { ++ printf("nemenim"); + /* no change */ + return GSL_ODEIV_HADJ_NIL; + } 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 2013-01-17 20:00:18.350164952 +0100