LAPACK  3.10.0
LAPACK: Linear Algebra PACKage

◆ disnan()

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

Definition at line 35 of file la_xisnan.F90.

36  use la_constants, only: wp=>dp
37 #ifdef USE_IEEE_INTRINSIC
38  use, intrinsic :: ieee_arithmetic
39 #elif USE_ISNAN
40  intrinsic :: isnan
41 #endif
42  real(wp) :: x
43 #ifdef USE_IEEE_INTRINSIC
44  disnan = ieee_is_nan(x)
45 #elif USE_ISNAN
46  disnan = isnan(x)
47 #else
48  disnan = dlaisnan(x,x)
49 
50  contains
51  logical function dlaisnan( x, y )
52  use la_constants, only: wp=>dp
53  real(wp) :: x, y
54  dlaisnan = ( x.ne.y )
55  end function dlaisnan
56 #endif
logical function disnan(DIN)
DISNAN tests input for NaN.
Definition: disnan.f:59
logical function dlaisnan(DIN1, DIN2)
DLAISNAN tests input for NaN by comparing two arguments for inequality.
Definition: dlaisnan.f:74
integer, parameter dp
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: