disnan()

logical function la_xisnan::disnan

(

real(wp)

x

)

Definition at line 35 of file la_xisnan.F90.

   use la_constants, only: wp=>dp
#ifdef USE_IEEE_INTRINSIC
   use, intrinsic :: ieee_arithmetic
#elif USE_ISNAN
   intrinsic :: isnan
#endif
   real(wp) :: x
#ifdef USE_IEEE_INTRINSIC
   disnan = ieee_is_nan(x)
#elif USE_ISNAN
   disnan = isnan(x)
#else
   disnan = dlaisnan(x,x)
 
   contains
   logical function dlaisnan( x, y )
   use la_constants, only: wp=>dp
   real(wp) :: x, y
   dlaisnan = ( x.ne.y )
   end function dlaisnan
#endif