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

floating point arithmetic refinement 

Intel 18.4 could not detect 0.0
This commit is contained in:
Martin Diehl 2019-09-23 09:29:38 -07:00
parent 96811f77ca
commit da041f43bc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/prec.f90
View File

@ -127,7 +127,7 @@ logical elemental pure function dEq(a,b,tol)
eps = PREAL_EPSILON * maxval(abs([a,b])) eps = PREAL_EPSILON * maxval(abs([a,b]))
endif endif
dEq = merge(.True.,.False.,abs(a-b) < eps) dEq = merge(.True.,.False.,abs(a-b) <= eps)
end function dEq end function dEq
@ -170,7 +170,7 @@ logical elemental pure function dEq0(a,tol)
eps = PREAL_MIN * 10.0_pReal eps = PREAL_MIN * 10.0_pReal
endif endif
dEq0 = merge(.True.,.False.,abs(a) < eps) dEq0 = merge(.True.,.False.,abs(a) <= eps)
end function dEq0 end function dEq0
@ -214,7 +214,7 @@ logical elemental pure function cEq(a,b,tol)
eps = PREAL_EPSILON * maxval(abs([a,b])) eps = PREAL_EPSILON * maxval(abs([a,b]))
endif endif
cEq = merge(.True.,.False.,abs(a-b) < eps) cEq = merge(.True.,.False.,abs(a-b) <= eps)
end function cEq end function cEq