LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ sisnan()

logical function la_xisnan::la_isnan::sisnan ( real(wp)  x)

Definition at line 11 of file la_xisnan.F90.

12 use la_constants, only: wp=>sp
13#ifdef USE_IEEE_INTRINSIC
14 use, intrinsic :: ieee_arithmetic
15#elif USE_ISNAN
16 intrinsic :: isnan
17#endif
18 real(wp) :: x
19#ifdef USE_IEEE_INTRINSIC
20 sisnan = ieee_is_nan(x)
21#elif USE_ISNAN
22 sisnan = isnan(x)
23#else
24 sisnan = slaisnan(x,x)
25
26 contains
27 logical function slaisnan( x, y )
28 use la_constants, only: wp=>sp
29 real(wp) :: x, y
30 slaisnan = ( x.ne.y )
31 end function slaisnan
32#endif
logical function sisnan(sin)
SISNAN tests input for NaN.
Definition sisnan.f:59
logical function slaisnan(x, y)
Definition la_xisnan.F90:28
integer, parameter sp
LA_CONSTANTS is a module for the scaling constants for the compiled Fortran single and double precisi...
Here is the call graph for this function: