minor cleanup of gsl.spec

This commit is contained in:
Frantisek Kluknavsky 2013-01-09 12:55:51 +01:00
parent c3d26e7613
commit 037d25f8a7

View File

@ -1,33 +1,17 @@
diff -up wrk/ode-initval2/msbdf.c.wrk wrk/ode-initval2/msbdf.c
diff -up wrk/ode-initval2/test.c.wrk wrk/ode-initval2/test.c
--- wrk/ode-initval2/test.c.wrk 2013-01-09 10:48:22.051415928 +0100
+++ wrk/ode-initval2/test.c 2013-01-09 12:48:01.793077658 +0100
@@ -2007,17 +2007,17 @@ test_extreme_problems (void)
+++ wrk/ode-initval2/test.c 2013-01-09 12:55:06.296699660 +0100
@@ -2003,10 +2003,11 @@ test_extreme_problems (void)
for (i = 0; steppers[i] != 0; i++)
{
+ printf("spustam driver p=%d i=%d\n", p, i);
int s = sys_driver (steppers[i], prob[p], start[p], end[p],
initstepsize[p], &y[sd[p] * i],
epsabs[p], epsrel[p], probname[p]);
- if (s != GSL_SUCCESS)
+/* if (s != GSL_SUCCESS)
-
+ printf("koniec drivera\n");
if (s != GSL_SUCCESS)
{
printf ("start=%.5e, initstepsize=%.5e\n", start[p],
initstepsize[p]);
gsl_test (s, "test_extreme_problems %s %s", steppers[i]->name,
probname[p]);
- }
+ }*/
}
/* Compare results */
-
+/*
for (i = 1; steppers[i] != 0; i++)
for (k = 0; k < sd[p]; k++)
{
@@ -2029,6 +2029,7 @@ test_extreme_problems (void)
steppers[0]->name, steppers[i]->name,
probname[p], k);
}
+ */
}
}