Annotation of rpl/lapack/lapack/dlaisnan.f, revision 1.9
1.9 ! bertrand 1: *> \brief \b DLAISNAN
! 2: *
! 3: * =========== DOCUMENTATION ===========
! 4: *
! 5: * Online html documentation available at
! 6: * http://www.netlib.org/lapack/explore-html/
! 7: *
! 8: *> \htmlonly
! 9: *> Download DLAISNAN + dependencies
! 10: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaisnan.f">
! 11: *> [TGZ]</a>
! 12: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaisnan.f">
! 13: *> [ZIP]</a>
! 14: *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaisnan.f">
! 15: *> [TXT]</a>
! 16: *> \endhtmlonly
! 17: *
! 18: * Definition:
! 19: * ===========
! 20: *
! 21: * LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 )
! 22: *
! 23: * .. Scalar Arguments ..
! 24: * DOUBLE PRECISION DIN1, DIN2
! 25: * ..
! 26: *
! 27: *
! 28: *> \par Purpose:
! 29: * =============
! 30: *>
! 31: *> \verbatim
! 32: *>
! 33: *> This routine is not for general use. It exists solely to avoid
! 34: *> over-optimization in DISNAN.
! 35: *>
! 36: *> DLAISNAN checks for NaNs by comparing its two arguments for
! 37: *> inequality. NaN is the only floating-point value where NaN != NaN
! 38: *> returns .TRUE. To check for NaNs, pass the same variable as both
! 39: *> arguments.
! 40: *>
! 41: *> A compiler must assume that the two arguments are
! 42: *> not the same variable, and the test will not be optimized away.
! 43: *> Interprocedural or whole-program optimization may delete this
! 44: *> test. The ISNAN functions will be replaced by the correct
! 45: *> Fortran 03 intrinsic once the intrinsic is widely available.
! 46: *> \endverbatim
! 47: *
! 48: * Arguments:
! 49: * ==========
! 50: *
! 51: *> \param[in] DIN1
! 52: *> \verbatim
! 53: *> DIN1 is DOUBLE PRECISION
! 54: *> \endverbatim
! 55: *>
! 56: *> \param[in] DIN2
! 57: *> \verbatim
! 58: *> DIN2 is DOUBLE PRECISION
! 59: *> Two numbers to compare for inequality.
! 60: *> \endverbatim
! 61: *
! 62: * Authors:
! 63: * ========
! 64: *
! 65: *> \author Univ. of Tennessee
! 66: *> \author Univ. of California Berkeley
! 67: *> \author Univ. of Colorado Denver
! 68: *> \author NAG Ltd.
! 69: *
! 70: *> \date November 2011
! 71: *
! 72: *> \ingroup auxOTHERauxiliary
! 73: *
! 74: * =====================================================================
1.5 bertrand 75: LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 )
1.1 bertrand 76: *
1.9 ! bertrand 77: * -- LAPACK auxiliary routine (version 3.4.0) --
1.1 bertrand 78: * -- LAPACK is a software package provided by Univ. of Tennessee, --
79: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.9 ! bertrand 80: * November 2011
1.1 bertrand 81: *
82: * .. Scalar Arguments ..
1.5 bertrand 83: DOUBLE PRECISION DIN1, DIN2
1.1 bertrand 84: * ..
85: *
86: * =====================================================================
87: *
88: * .. Executable Statements ..
89: DLAISNAN = (DIN1.NE.DIN2)
90: RETURN
91: END
CVSweb interface <joel.bertrand@systella.fr>