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 !! for details on NaN see https://software.intel.com/en-us/forums/topic/294680
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
module prec 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 #if !(defined(__GFORTRAN__) && __GNUC__ < 5)
use, intrinsic :: & ! unfortunately not avialable in commonly used gfortran versions use, intrinsic :: & ! unfortunately not avialable in gfortran <= 5
IEEE_arithmetic IEEE_arithmetic
#endif #endif
@ -185,7 +182,7 @@ logical elemental function prec_isNaN(a)
implicit none implicit none
real(pReal), intent(in) :: a real(pReal), intent(in) :: a
#if defined(__GFORTRAN__) || defined(Abaqus) #if (defined(__GFORTRAN__) && __GNUC__ < 5)
intrinsic :: isNaN intrinsic :: isNaN
prec_isNaN = isNaN(a) prec_isNaN = isNaN(a)
#else #else