LAPACK 3.12.1
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
disnan.f
Go to the documentation of this file.
1*> \brief \b DISNAN tests input for NaN.
2*
3* =========== DOCUMENTATION ===========
4*
5* Online html documentation available at
6* http://www.netlib.org/lapack/explore-html/
7*
8*> Download DISNAN + dependencies
9*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/disnan.f">
10*> [TGZ]</a>
11*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/disnan.f">
12*> [ZIP]</a>
13*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/disnan.f">
14*> [TXT]</a>
15*
16* Definition:
17* ===========
18*
19* LOGICAL FUNCTION DISNAN( DIN )
20*
21* .. Scalar Arguments ..
22* DOUBLE PRECISION, INTENT(IN) :: DIN
23* ..
24*
25*
26*> \par Purpose:
27* =============
28*>
29*> \verbatim
30*>
31*> DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
32*> otherwise. To be replaced by the Fortran 2003 intrinsic in the
33*> future.
34*> \endverbatim
35*
36* Arguments:
37* ==========
38*
39*> \param[in] DIN
40*> \verbatim
41*> DIN is DOUBLE PRECISION
42*> Input to test for NaN.
43*> \endverbatim
44*
45* Authors:
46* ========
47*
48*> \author Univ. of Tennessee
49*> \author Univ. of California Berkeley
50*> \author Univ. of Colorado Denver
51*> \author NAG Ltd.
52*
53*> \ingroup isnan
54*
55* =====================================================================
56 LOGICAL FUNCTION disnan( DIN )
57*
58* -- LAPACK auxiliary routine --
59* -- LAPACK is a software package provided by Univ. of Tennessee, --
60* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
61*
62* .. Scalar Arguments ..
63 DOUBLE PRECISION, INTENT(IN) :: din
64* ..
65*
66* =====================================================================
67*
68* .. External Functions ..
69 LOGICAL dlaisnan
70 EXTERNAL dlaisnan
71* ..
72* .. Executable Statements ..
73 disnan = dlaisnan(din,din)
74 RETURN
75 END
logical function disnan(din)
DISNAN tests input for NaN.
Definition disnan.f:57
logical function dlaisnan(din1, din2)
DLAISNAN tests input for NaN by comparing two arguments for inequality.
Definition dlaisnan.f:72