Skip to content

Commit 828cda0

Browse files
author
Juan Fiol
committed
Changed parameters as suggested by @certik
1 parent bb852d2 commit 828cda0

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

src/tests/stats/test_mean.f90

+2-2
Original file line numberDiff line numberDiff line change
@@ -5,8 +5,8 @@ program test_mean
55
use stdlib_experimental_stats, only: mean
66
implicit none
77

8-
real(sp), parameter :: sptol = 1.2e-06_sp
9-
real(dp), parameter :: dptol = 2.2e-15_dp
8+
real(sp), parameter :: sptol =10 * epsilon(1._sp)
9+
real(dp), parameter :: dptol =10 * epsilon(1._dp)
1010

1111
real(sp) :: s1(3) = [1.0_sp, 2.0_sp, 3.0_sp]
1212

src/tests/stats/test_mean_f03.f90

+1-1
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ program test_mean
55
use stdlib_experimental_stats, only: mean
66
implicit none
77

8-
real(dp), parameter :: dptol = 2.2e-15_dp
8+
real(dp), parameter :: dptol =10 * epsilon(1._dp)
99

1010
real(dp), allocatable :: d(:, :)
1111
real(dp), allocatable :: d8(:, :, :, :, :, :, :, :)

0 commit comments

Comments
 (0)