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

◆ disnan()

logical function la_xisnan::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...