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

make clear that this isNaN is an intrinsic extension

This commit is contained in:
Martin Diehl 2015-09-24 08:45:44 +00:00
parent 3c901e5549
commit 2e70e6fded
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/prec.f90
View File

@ -185,6 +185,7 @@ logical elemental function prec_isNaN(a)
real(pReal), intent(in) :: a real(pReal), intent(in) :: a
#if defined(__GFORTRAN__) || defined(Abaqus) #if defined(__GFORTRAN__) || defined(Abaqus)
intrinsic :: isNaN
prec_isNaN = isNaN(a) prec_isNaN = isNaN(a)
#else #else
prec_isNaN = IEEE_is_NaN(a) prec_isNaN = IEEE_is_NaN(a)