From 8c8b8e452974897fe9272fcbcbf7dd9d623feaf0 Mon Sep 17 00:00:00 2001 From: Dominic Steinitz Date: Tue, 12 Sep 2017 17:20:55 +0100 Subject: Provide better error message --- packages/gsl/src/Numeric/GSL/gsl-ode.c | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'packages/gsl/src/Numeric/GSL/gsl-ode.c') diff --git a/packages/gsl/src/Numeric/GSL/gsl-ode.c b/packages/gsl/src/Numeric/GSL/gsl-ode.c index a6bdb55..72c8617 100644 --- a/packages/gsl/src/Numeric/GSL/gsl-ode.c +++ b/packages/gsl/src/Numeric/GSL/gsl-ode.c @@ -178,11 +178,16 @@ int ode(int method, int control, double h, status = gsl_odeiv2_driver_apply (d, &t, ti, y); if (status != GSL_SUCCESS) { - printf ("error in ode, return value=%d\n", status); - break; - } - -// printf ("%.5e %.5e %.5e\n", t, y[0], y[1]); + int k; + printf ("error in ode, return value=%d\n", status); + printf("last successful values are:\n"); + printf("t = %.5e\n", t); + for (k=0; k < xin; k++) + { + printf("y[%d] = %.5e\n", k, y[k]); + } + break; + } for(j=0; j