From 8aea6bcd33629bcf442389c7db8345c83a117e0d Mon Sep 17 00:00:00 2001
From: Simon Kern <skern@mech.kth.se>
Date: Thu, 27 Jun 2024 10:33:25 +0200
Subject: [PATCH] Revert "updated to new get_err_str routine"

This reverts commit 6536076a32e6d4963595f1b43e277a041e56c546.
---
 test/TestLyapunov.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/TestLyapunov.f90 b/test/TestLyapunov.f90
index c23b751..4e292e1 100644
--- 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, rtol_dp)
+      call get_err_str(msg, "max err: ", err)
       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)