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

cleaner handling of NaN

This commit is contained in:
Martin Diehl 2015-12-22 10:03:15 +00:00
parent ee47c9302a
commit dfe09f11f5
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
code/prec.f90
View File

@ -12,12 +12,9 @@
!! for details on NaN see https://software.intel.com/en-us/forums/topic/294680
!--------------------------------------------------------------------------------------------------
module prec
#if defined(Abaqus)
use ifport ! needed as a hack for Abaqus because version 6.12-2 is linked partly against Intel Fortran Compiler 10.1. allows to use non IEEE is NaN
#endif
#ifdef __INTEL_COMPILER
use, intrinsic :: & ! unfortunately not avialable in commonly used gfortran versions
#if !(defined(__GFORTRAN__) && __GNUC__ < 5)
use, intrinsic :: & ! unfortunately not avialable in gfortran <= 5
IEEE_arithmetic
#endif
@ -185,7 +182,7 @@ logical elemental function prec_isNaN(a)
implicit none
real(pReal), intent(in) :: a
#if defined(__GFORTRAN__) || defined(Abaqus)
#if (defined(__GFORTRAN__) && __GNUC__ < 5)
intrinsic :: isNaN
prec_isNaN = isNaN(a)
#else