sisnan()

logical function la_xisnan::sisnan

(

real(wp)

x

)

Definition at line 11 of file la_xisnan.F90.

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

Here is the caller graph for this function: