diff --git a/wrk.patch b/wrk.patch index f0fb758..48365c5 100644 --- a/wrk.patch +++ b/wrk.patch @@ -43,70 +43,4 @@ diff -up wrk/ode-initval2/test.c.wrk wrk/ode-initval2/test.c #endif if (s != GSL_SUCCESS) -@@ -1959,7 +1978,7 @@ test_extreme_problems (void) - - /* Loop over problems */ - -- for (p = 0; p < CONST_EXTREME_NPROB; p++) -+ for (p = 2; p < CONST_EXTREME_NPROB; p++) - { - /* Initialize */ - -@@ -2001,12 +2020,13 @@ test_extreme_problems (void) - - /* Call each solver for the problem */ - -- for (i = 0; steppers[i] != 0; i++) -+ for (i = 1; steppers[i] != 0; i++) - { -+ printf("spustam driver p=%ld i=%ld\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]); -- -+ printf("koniec drivera\n"); - if (s != GSL_SUCCESS) - { - printf ("start=%.5e, initstepsize=%.5e\n", start[p], -@@ -2450,7 +2470,7 @@ main (void) - - /* Basic tests for all steppers */ - -- for (i = 0; p[i].type != 0; i++) -+ /*for (i = 0; p[i].type != 0; i++) - { - test_stepper (p[i].type); - } -@@ -2469,9 +2489,9 @@ main (void) - test_stepsize_fail (p[i].type, p[i].h); - test_user_break (p[i].type, p[i].h); - } -- -+*/ - /* Derivative test for explicit steppers */ -- -+/* - explicit_stepper[0].type = gsl_odeiv2_step_rk4; - explicit_stepper[0].h = 1.0e-3; - explicit_stepper[1].type = gsl_odeiv2_step_rk2; -@@ -2491,16 +2511,16 @@ main (void) - test_stepfn (explicit_stepper[i].type); - test_stepfn2 (explicit_stepper[i].type); - } -- -+*/ - /* Special tests */ - -- test_nonstiff_problems (); -+ // test_nonstiff_problems (); - -- test_stiff_problems (); -+ // test_stiff_problems (); - - test_extreme_problems (); - -- test_driver (); -+ //test_driver (); - - exit (gsl_test_summary ()); - } +