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.
1 parent e3d0040 commit 082b2baCopy full SHA for 082b2ba
src/common/m_helper_basic.f90
@@ -35,7 +35,7 @@ logical pure elemental function f_approx_equal(a, b, tol_input) result(res)
35
if (wp == selected_real_kind(15, 307)) then
36
tol = 1.e-10_wp
37
else if (wp == selected_real_kind(6, 37)) then
38
- tol = 1.e-6_wp
+ tol = 1.e-6_wp
39
end if
40
41
0 commit comments