diff --git a/test/test1.f90 b/test/test1.f90 index c440480..b1b498c 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-3_rk, msg='test1') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test1') end program test1 diff --git a/test/test10.f90 b/test/test10.f90 index fca42fe..4954ef4 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-3_rk, msg='test10') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test10') #endif diff --git a/test/test11.f90 b/test/test11.f90 index 16bb31f..1f3f1cd 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-3_rk, msg='test11') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test11') #endif diff --git a/test/test12.f90 b/test/test12.f90 index 044fc00..0d83b76 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-3_rk, msg='test12') + call ut%check(res=t%mpi_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test12') #endif diff --git a/test/test13.f90 b/test/test13.f90 index e427c6a..57f8c55 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-3_rk, msg='test13') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test13') end program test13 diff --git a/test/test14.f90 b/test/test14.f90 index b3c0965..1f82610 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-3_rk, msg='test14') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test14') end program test14 diff --git a/test/test15.f90 b/test/test15.f90 index 9923fd5..b951548 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-3_rk, msg='test15') + call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test15') end program test15 diff --git a/test/test19.f90 b/test/test19.f90 index d265383..f030638 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-3_rk, msg='test19') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test19') #endif end program test19 diff --git a/test/test2.f90 b/test/test2.f90 index b7f4208..c205fa9 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-3_rk, msg='test2') + call ut%check(res=t%elapsed_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test2') end program test2 diff --git a/test/test20.f90 b/test/test20.f90 index 54a39e2..7547d9f 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-3_rk, msg='test20') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test20') #endif diff --git a/test/test21.f90 b/test/test21.f90 index 2e19888..9f27ab3 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-3_rk, msg='test21') + call ut%check(res=t%omp_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test21') #endif diff --git a/test/test22.f90 b/test/test22.f90 index fb596cb..c908c35 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-3_rk, msg='test22') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test22') #endif diff --git a/test/test23.f90 b/test/test23.f90 index b94f9ef..5ec6200 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-3_rk, msg='test23') + call ut%check(res=t%mpi_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test23') #endif diff --git a/test/test24.f90 b/test/test24.f90 index 697aa16..480a1fc 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-3_rk, msg='test24') + call ut%check(res=t%mpi_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test24') #endif diff --git a/test/test3.f90 b/test/test3.f90 index d4edc57..ed1efcf 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-3_rk, msg='test3') + call ut%check(res=t%elapsed_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test3') end program test3 diff --git a/test/test7.f90 b/test/test7.f90 index 0b0a530..e4ad119 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-3_rk, msg='test7') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test7') #endif end program test7 diff --git a/test/test8.f90 b/test/test8.f90 index 5baa03f..1ebdd9c 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-3_rk, msg='test8') + call ut%check(res=t%omp_time, expected=1.0_rk, tol=1.0e-2_rk, msg='test8') #endif diff --git a/test/test9.f90 b/test/test9.f90 index f2df206..fb52b1f 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-3_rk, msg='test9') + call ut%check(res=t%omp_time, expected=real(nloops,rk)*1.0_rk, tol=1.0e-2_rk, msg='test9') #endif