223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

larger tolerance (test failed on Intel)

This commit is contained in:
Martin Diehl 2023-11-27 06:39:59 +01:00
parent 2018b623ce
commit 1fb5e159ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/math.f90
View File

@ -1380,10 +1380,10 @@ subroutine math_selfTest()
if (any(dNeq0(math_eye(3),math_inv33(math_I3)))) & if (any(dNeq0(math_eye(3),math_inv33(math_I3)))) &
error stop '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' 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' error stop 'math_spherical/deviatoric'
do while(abs(math_det33(t33))<1.0e-9_pREAL) do while(abs(math_det33(t33))<1.0e-9_pREAL)