From 0cf1dce2c5fa8c2f9f2a9a276d055d06a3882240 Mon Sep 17 00:00:00 2001 From: Andreas Kloeckner Date: Wed, 26 Oct 2016 09:16:34 -0500 Subject: [PATCH 1/2] Fix error reporting for adaptive Fortran test --- test/test_rk_adaptive.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/test_rk_adaptive.f90 b/test/test_rk_adaptive.f90 index 1744ead..94db224 100644 --- a/test/test_rk_adaptive.f90 +++ b/test/test_rk_adaptive.f90 @@ -64,8 +64,8 @@ program test_rkmethod write(*,*), "Test passes: big_step_frac = ", big_step_frac write(*,*), "Test passes: small_step_frac = ", small_step_frac else - write(*,*), "Test fails: big_step_frac = ", big_step_frac - write(*,*), "Test fails: small_step_frac = ", small_step_frac + write(stderr,*), "Test fails: big_step_frac = ", big_step_frac + write(stderr,*), "Test fails: small_step_frac = ", small_step_frac endif end program -- GitLab From f4aa64eb1b8028e4b6abdf18c04869ccb07c3f3c Mon Sep 17 00:00:00 2001 From: Andreas Kloeckner Date: Thu, 27 Oct 2016 12:12:47 -0500 Subject: [PATCH 2/2] Adjust tolerances in adaptive RK Fortran test --- test/test_rk_adaptive.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/test_rk_adaptive.f90 b/test/test_rk_adaptive.f90 index 94db224..e8447e3 100644 --- a/test/test_rk_adaptive.f90 +++ b/test/test_rk_adaptive.f90 @@ -48,7 +48,7 @@ program test_rkmethod if (step_sizes(istep)<0.01d0) then num_small_steps = num_small_steps + 1 - elseif (step_sizes(istep)>0.05d0) then + elseif (step_sizes(istep)>0.03d0) then num_big_steps = num_big_steps + 1 endif -- GitLab