LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ sisnan()

logical function la_xisnan::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 caller graph for this function: