Skip to content

Commit 082b2ba

Browse files
committed
Format
1 parent e3d0040 commit 082b2ba

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/common/m_helper_basic.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ logical pure elemental function f_approx_equal(a, b, tol_input) result(res)
3535
if (wp == selected_real_kind(15, 307)) then
3636
tol = 1.e-10_wp
3737
else if (wp == selected_real_kind(6, 37)) then
38-
tol = 1.e-6_wp
38+
tol = 1.e-6_wp
3939
end if
4040
end if
4141

0 commit comments

Comments
 (0)