diff --git a/test/test1.f90 b/test/test1.f90 index b1b498c..15e2eda 100644 --- a/test/test1.f90 +++ b/test/test1.f90 @@ -15,7 +15,7 @@ program test1 call sleep(1) ! Perform operations here call t%timer_stop() - call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test1') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test1') end program test1 diff --git a/test/test10.f90 b/test/test10.f90 index 4954ef4..c01f856 100644 --- a/test/test10.f90 +++ b/test/test10.f90 @@ -19,7 +19,7 @@ program test10 call t%mtimer_stop() call mpi_finalize(ierr) - call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test10') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test10') #endif diff --git a/test/test11.f90 b/test/test11.f90 index 1f3f1cd..e0547f9 100644 --- a/test/test11.f90 +++ b/test/test11.f90 @@ -23,7 +23,7 @@ program test11 call mpi_finalize(ierr) call t%mtimer_write('test/test11_mtimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test11') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test11') #endif diff --git a/test/test12.f90 b/test/test12.f90 index 0d83b76..8165ee6 100644 --- a/test/test12.f90 +++ b/test/test12.f90 @@ -23,7 +23,7 @@ program test12 call mpi_finalize(ierr) call t%mtimer_write('test/test12_mtimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%mpi_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test12') + call ut%check(res=t%mpi_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test12') #endif diff --git a/test/test13.f90 b/test/test13.f90 index 57f8c55..caa4ff0 100644 --- a/test/test13.f90 +++ b/test/test13.f90 @@ -15,7 +15,7 @@ program test13 call sleep(1) ! Perform operations here call t%timer_stop(print=.false.) - call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test13') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test13') end program test13 diff --git a/test/test14.f90 b/test/test14.f90 index 1f82610..fb71bd8 100644 --- a/test/test14.f90 +++ b/test/test14.f90 @@ -19,7 +19,7 @@ program test14 call t%timer_stop(nloops = nloops, message = 'Elapsed time:', print=.false.) call t%timer_write('test/test14_etimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test14') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test14') end program test14 diff --git a/test/test15.f90 b/test/test15.f90 index b951548..119a37c 100644 --- a/test/test15.f90 +++ b/test/test15.f90 @@ -19,7 +19,7 @@ program test15 call t%timer_stop(message = 'Elapsed time:', print=.false.) call t%timer_write('test/test15_etimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test15') + call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test15') end program test15 diff --git a/test/test19.f90 b/test/test19.f90 index f030638..8e86de9 100644 --- a/test/test19.f90 +++ b/test/test19.f90 @@ -16,7 +16,7 @@ program test19 call sleep(1) ! Perform operations here call t%otimer_stop(print=.false.) - call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test19') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test19') #endif end program test19 diff --git a/test/test2.f90 b/test/test2.f90 index c205fa9..63a8120 100644 --- a/test/test2.f90 +++ b/test/test2.f90 @@ -19,7 +19,7 @@ program test2 call t%timer_stop(nloops = nloops, message = 'Elapsed time:') call t%timer_write('test/test2_etimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test2') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test2') end program test2 diff --git a/test/test20.f90 b/test/test20.f90 index 7547d9f..2779b89 100644 --- a/test/test20.f90 +++ b/test/test20.f90 @@ -20,7 +20,7 @@ program test20 call t%otimer_stop(nloops = nloops, message = 'OMP time:', print=.false.) call t%otimer_write('test/test20_otimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test20') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test20') #endif diff --git a/test/test21.f90 b/test/test21.f90 index 9f27ab3..64fab2d 100644 --- a/test/test21.f90 +++ b/test/test21.f90 @@ -20,7 +20,7 @@ program test21 call t%otimer_stop(message = 'OMP time:', print=.false.) call t%otimer_write('test/test21_otimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%omp_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test21') + call ut%check(res=t%omp_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test21') #endif diff --git a/test/test22.f90 b/test/test22.f90 index c908c35..ae648f1 100644 --- a/test/test22.f90 +++ b/test/test22.f90 @@ -19,7 +19,7 @@ program test22 call t%mtimer_stop(print=.false.) call mpi_finalize(ierr) - call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test22') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test22') #endif diff --git a/test/test23.f90 b/test/test23.f90 index 5ec6200..ac754e6 100644 --- a/test/test23.f90 +++ b/test/test23.f90 @@ -23,7 +23,7 @@ program test23 call mpi_finalize(ierr) call t%mtimer_write('test/test23_mtimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test23') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test23') #endif diff --git a/test/test24.f90 b/test/test24.f90 index 480a1fc..3a1c1e8 100644 --- a/test/test24.f90 +++ b/test/test24.f90 @@ -23,7 +23,7 @@ program test24 call mpi_finalize(ierr) call t%mtimer_write('test/test24_mtimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%mpi_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test24') + call ut%check(res=t%mpi_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test24') #endif diff --git a/test/test3.f90 b/test/test3.f90 index ed1efcf..e82e3e0 100644 --- a/test/test3.f90 +++ b/test/test3.f90 @@ -19,7 +19,7 @@ program test3 call t%timer_stop(message = 'Elapsed time:') call t%timer_write('test/test3_etimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test3') + call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test3') end program test3 diff --git a/test/test7.f90 b/test/test7.f90 index e4ad119..13b6505 100644 --- a/test/test7.f90 +++ b/test/test7.f90 @@ -16,7 +16,7 @@ program test7 call sleep(1) ! Perform operations here call t%otimer_stop() - call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test7') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test7') #endif end program test7 diff --git a/test/test8.f90 b/test/test8.f90 index 1ebdd9c..7b85d7a 100644 --- a/test/test8.f90 +++ b/test/test8.f90 @@ -20,7 +20,7 @@ program test8 call t%otimer_stop(nloops = nloops, message = 'OMP time:') call t%otimer_write('test/test8_otimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test8') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-1_rk, msg='test8') #endif diff --git a/test/test9.f90 b/test/test9.f90 index fb52b1f..d7dc677 100644 --- a/test/test9.f90 +++ b/test/test9.f90 @@ -20,7 +20,7 @@ program test9 call t%otimer_stop(message = 'OMP time:') call t%otimer_write('test/test9_otimes') ! Optionally, write the elapsed time to a file - call ut%check(res=t%omp_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test9') + call ut%check(res=t%omp_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-1_rk, msg='test9') #endif