We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 031ecf7 + 688c81a commit 15eee77Copy full SHA for 15eee77
src/tests/quadrature/test_simps.f90
@@ -5,9 +5,9 @@ program test_simps
5
6
implicit none
7
8
- real(sp) :: tol_sp = epsilon(1.0_sp)
9
- real(dp) :: tol_dp = epsilon(1.0_dp)
10
- real(qp) :: tol_qp = epsilon(1.0_sp)
+ real(sp), parameter :: tol_sp = 1000 * epsilon(1.0_sp)
+ real(dp), parameter :: tol_dp = 1000 * epsilon(1.0_dp)
+ real(qp), parameter :: tol_qp = 1000 *epsilon(1.0_sp)
11
12
call test_simps_sp
13
call test_simps_dp
0 commit comments