LAPACK
3.6.1
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
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
*> \htmlonly
9
*> Download DISNAN + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/disnan.f">
11
*> [TGZ]</a>
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/disnan.f">
13
*> [ZIP]</a>
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/disnan.f">
15
*> [TXT]</a>
16
*> \endhtmlonly
17
*
18
* Definition:
19
* ===========
20
*
21
* LOGICAL FUNCTION DISNAN( DIN )
22
*
23
* .. Scalar Arguments ..
24
* DOUBLE PRECISION DIN
25
* ..
26
*
27
*
28
*> \par Purpose:
29
* =============
30
*>
31
*> \verbatim
32
*>
33
*> DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
34
*> otherwise. To be replaced by the Fortran 2003 intrinsic in the
35
*> future.
36
*> \endverbatim
37
*
38
* Arguments:
39
* ==========
40
*
41
*> \param[in] DIN
42
*> \verbatim
43
*> DIN is DOUBLE PRECISION
44
*> Input to test for NaN.
45
*> \endverbatim
46
*
47
* Authors:
48
* ========
49
*
50
*> \author Univ. of Tennessee
51
*> \author Univ. of California Berkeley
52
*> \author Univ. of Colorado Denver
53
*> \author NAG Ltd.
54
*
55
*> \date September 2012
56
*
57
*> \ingroup auxOTHERauxiliary
58
*
59
* =====================================================================
60
LOGICAL
FUNCTION
disnan
( DIN )
61
*
62
* -- LAPACK auxiliary routine (version 3.4.2) --
63
* -- LAPACK is a software package provided by Univ. of Tennessee, --
64
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
65
* September 2012
66
*
67
* .. Scalar Arguments ..
68
DOUBLE PRECISION
DIN
69
* ..
70
*
71
* =====================================================================
72
*
73
* .. External Functions ..
74
LOGICAL
DLAISNAN
75
EXTERNAL
dlaisnan
76
* ..
77
* .. Executable Statements ..
78
disnan
= dlaisnan(din,din)
79
RETURN
80
END
disnan
logical function disnan(DIN)
DISNAN tests input for NaN.
Definition:
disnan.f:61
SRC
disnan.f
Generated on Sun Jun 19 2016 20:52:22 for LAPACK by
1.8.10