LAPACK
3.7.0
LAPACK: Linear Algebra PACKage
Main Page
Modules
Data Types List
Files
File List
File Members
sisnan.f
Go to the documentation of this file.
1
*> \brief \b SISNAN 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 SISNAN + dependencies
10
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/sisnan.f">
11
*> [TGZ]</a>
12
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/sisnan.f">
13
*> [ZIP]</a>
14
*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/sisnan.f">
15
*> [TXT]</a>
16
*> \endhtmlonly
17
*
18
* Definition:
19
* ===========
20
*
21
* LOGICAL FUNCTION SISNAN( SIN )
22
*
23
* .. Scalar Arguments ..
24
* REAL SIN
25
* ..
26
*
27
*
28
*> \par Purpose:
29
* =============
30
*>
31
*> \verbatim
32
*>
33
*> SISNAN 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] SIN
42
*> \verbatim
43
*> SIN is REAL
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 December 2016
56
*
57
*> \ingroup OTHERauxiliary
58
*
59
* =====================================================================
60
LOGICAL
FUNCTION
sisnan
( SIN )
61
*
62
* -- LAPACK auxiliary routine (version 3.7.0) --
63
* -- LAPACK is a software package provided by Univ. of Tennessee, --
64
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
65
* December 2016
66
*
67
* .. Scalar Arguments ..
68
REAL
SIN
69
* ..
70
*
71
* =====================================================================
72
*
73
* .. External Functions ..
74
LOGICAL
SLAISNAN
75
EXTERNAL
slaisnan
76
* ..
77
* .. Executable Statements ..
78
sisnan
= slaisnan(sin,sin)
79
RETURN
80
END
sisnan
logical function sisnan(SIN)
SISNAN tests input for NaN.
Definition:
sisnan.f:61
SRC
sisnan.f
Generated on Fri Dec 23 2016 15:28:28 for LAPACK by
1.8.10