--- rpl/lapack/lapack/dlaisnan.f 2010/01/26 15:22:46 1.1 +++ rpl/lapack/lapack/dlaisnan.f 2011/11/21 20:42:55 1.9 @@ -1,38 +1,88 @@ - LOGICAL FUNCTION DLAISNAN(DIN1,DIN2) +*> \brief \b DLAISNAN * -* -- LAPACK auxiliary routine (version 3.2) -- +* =========== DOCUMENTATION =========== +* +* Online html documentation available at +* http://www.netlib.org/lapack/explore-html/ +* +*> \htmlonly +*> Download DLAISNAN + dependencies +*> +*> [TGZ] +*> +*> [ZIP] +*> +*> [TXT] +*> \endhtmlonly +* +* Definition: +* =========== +* +* LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) +* +* .. Scalar Arguments .. +* DOUBLE PRECISION DIN1, DIN2 +* .. +* +* +*> \par Purpose: +* ============= +*> +*> \verbatim +*> +*> This routine is not for general use. It exists solely to avoid +*> over-optimization in DISNAN. +*> +*> DLAISNAN checks for NaNs by comparing its two arguments for +*> inequality. NaN is the only floating-point value where NaN != NaN +*> returns .TRUE. To check for NaNs, pass the same variable as both +*> arguments. +*> +*> A compiler must assume that the two arguments are +*> not the same variable, and the test will not be optimized away. +*> Interprocedural or whole-program optimization may delete this +*> test. The ISNAN functions will be replaced by the correct +*> Fortran 03 intrinsic once the intrinsic is widely available. +*> \endverbatim +* +* Arguments: +* ========== +* +*> \param[in] DIN1 +*> \verbatim +*> DIN1 is DOUBLE PRECISION +*> \endverbatim +*> +*> \param[in] DIN2 +*> \verbatim +*> DIN2 is DOUBLE PRECISION +*> Two numbers to compare for inequality. +*> \endverbatim +* +* Authors: +* ======== +* +*> \author Univ. of Tennessee +*> \author Univ. of California Berkeley +*> \author Univ. of Colorado Denver +*> \author NAG Ltd. +* +*> \date November 2011 +* +*> \ingroup auxOTHERauxiliary +* +* ===================================================================== + LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 ) +* +* -- LAPACK auxiliary routine (version 3.4.0) -- * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- -* November 2006 +* November 2011 * * .. Scalar Arguments .. - DOUBLE PRECISION DIN1,DIN2 + DOUBLE PRECISION DIN1, DIN2 * .. * -* Purpose -* ======= -* -* This routine is not for general use. It exists solely to avoid -* over-optimization in DISNAN. -* -* DLAISNAN checks for NaNs by comparing its two arguments for -* inequality. NaN is the only floating-point value where NaN != NaN -* returns .TRUE. To check for NaNs, pass the same variable as both -* arguments. -* -* A compiler must assume that the two arguments are -* not the same variable, and the test will not be optimized away. -* Interprocedural or whole-program optimization may delete this -* test. The ISNAN functions will be replaced by the correct -* Fortran 03 intrinsic once the intrinsic is widely available. -* -* Arguments -* ========= -* -* DIN1 (input) DOUBLE PRECISION -* DIN2 (input) DOUBLE PRECISION -* Two numbers to compare for inequality. -* * ===================================================================== * * .. Executable Statements ..