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

unifying style

This commit is contained in:
Martin Diehl 2021-10-28 07:05:14 +02:00
parent b4ff89f304
commit f0a33b452f
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

@ -101,7 +101,7 @@ logical elemental pure function dEq(a,b,tol)
dEq = abs(a-b) <= tol dEq = abs(a-b) <= tol
else else
dEq = abs(a-b) <= PREAL_EPSILON * maxval(abs([a,b])) dEq = abs(a-b) <= PREAL_EPSILON * maxval(abs([a,b]))
endif end if
end function dEq end function dEq
@ -139,7 +139,7 @@ logical elemental pure function dEq0(a,tol)
dEq0 = abs(a) <= tol dEq0 = abs(a) <= tol
else else
dEq0 = abs(a) <= PREAL_MIN * 10.0_pReal dEq0 = abs(a) <= PREAL_MIN * 10.0_pReal
endif end if
end function dEq0 end function dEq0
@ -178,7 +178,7 @@ logical elemental pure function cEq(a,b,tol)
cEq = abs(a-b) <= tol cEq = abs(a-b) <= tol
else else
cEq = abs(a-b) <= PREAL_EPSILON * maxval(abs([a,b])) cEq = abs(a-b) <= PREAL_EPSILON * maxval(abs([a,b]))
endif end if
end function cEq end function cEq