updated to new get_err_str routine

nekStab · Jun 26, 2024 · 6536076 · 6536076
1 parent 2e4a96c
commit 6536076
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/TestLyapunov.f90 b/test/TestLyapunov.f90
@@ -105,7 +105,7 @@ subroutine test_project_onto_common_basis_rdp(error)
 
       ! Check correctness.
       err = abs(sdata(1) - svals(1))
-      call get_err_str(msg, "max err: ", err)
+      call get_err_str(msg, "max err: ", err, rtol_dp)
       call check(error, err < rtol_dp)
       call check_test(error, 'test_project_onto_common_basis_rdp', &
                   & info='Singular value comparison', eq='s_1 = s(LR)_1', context=msg)