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

compare floats with tolerances

This commit is contained in:
Martin Diehl 2020-04-26 14:58:07 +02:00
parent d61f302305
commit 9671a632b5
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/rotations.f90
View File

@ -527,7 +527,7 @@ pure function qu2ho(qu) result(ho)
omega = 2.0 * acos(math_clip(qu(1),-1.0_pReal,1.0_pReal)) omega = 2.0 * acos(math_clip(qu(1),-1.0_pReal,1.0_pReal))
if (dEq0(omega)) then if (dEq0(omega,tol=1.e-5_pReal)) then
ho = [ 0.0_pReal, 0.0_pReal, 0.0_pReal ] ho = [ 0.0_pReal, 0.0_pReal, 0.0_pReal ]
else else
ho = qu(2:4) ho = qu(2:4)
@ -1298,7 +1298,7 @@ pure function Lambert_BallToCube(xyz) result(cube)
integer, dimension(3,2) :: p integer, dimension(3,2) :: p
rs = norm2(xyz) rs = norm2(xyz)
if (rs > R1) then if (rs > R1+1.e-6_pReal) then
cube = IEEE_value(cube,IEEE_positive_inf) cube = IEEE_value(cube,IEEE_positive_inf)
return return
endif endif