1 *> \brief \b SISNAN tests input for NaN.
3 * =========== DOCUMENTATION ===========
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
9 *> Download SISNAN + dependencies
10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/sisnan.f">
12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/sisnan.f">
14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/sisnan.f">
21 * LOGICAL FUNCTION SISNAN( SIN )
23 * .. Scalar Arguments ..
33 *> SISNAN returns .TRUE. if its argument is NaN, and .FALSE.
34 *> otherwise. To be replaced by the Fortran 2003 intrinsic in the
44 *> Input to test for NaN.
50 *> \author Univ. of Tennessee
51 *> \author Univ. of California Berkeley
52 *> \author Univ. of Colorado Denver
55 *> \date September 2012
57 *> \ingroup OTHERauxiliary
59 * =====================================================================
60 LOGICAL FUNCTION SISNAN( SIN )
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..--
67 * .. Scalar Arguments ..
71 * =====================================================================
73 * .. External Functions ..
77 * .. Executable Statements ..
78 SISNAN = SLAISNAN(SIN,SIN)