From 1fb5e159adf3139aa6b5f43769fe11e29393dbbd Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 27 Nov 2023 06:39:59 +0100 Subject: [PATCH] larger tolerance (test failed on Intel) --- src/math.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/math.f90 b/src/math.f90 index c6a358407..863661c2c 100644 --- a/src/math.f90 +++ b/src/math.f90 @@ -1380,10 +1380,10 @@ subroutine math_selfTest() if (any(dNeq0(math_eye(3),math_inv33(math_I3)))) & error stop 'math_inv33(math_I3)' - if (any(dNeq(t33,math_symmetric33(t33)+math_skew33(t33)))) & + if (any(dNeq(t33,math_symmetric33(t33)+math_skew33(t33),1.0e-10_pReal))) & error stop 'math_symmetric/skew' - if (any(dNeq(t33,math_spherical33(t33)+math_deviatoric33(t33)))) & + if (any(dNeq(t33,math_spherical33(t33)+math_deviatoric33(t33),1.0e-10_pReal))) & error stop 'math_spherical/deviatoric' do while(abs(math_det33(t33))<1.0e-9_pREAL)