Merge pull request #201 from Bytom/v0.1

[bytom/vapor.git] / vendor / gonum.org / v1 / gonum / lapack / internal / testdata / dsterftest / dlaisnan.f

diff --git a/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/dlaisnan.f b/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/dlaisnan.f
deleted file mode 100644 (file)
index 58595c5..0000000
--- a/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/dlaisnan.f
+++ /dev/null
@@ -1,91 +0,0 @@
-*> \brief \b DLAISNAN tests input for NaN by comparing two arguments for inequality.
-*
-*  =========== DOCUMENTATION ===========
-*
-* Online html documentation available at 
-*            http://www.netlib.org/lapack/explore-html/ 
-*
-*> \htmlonly
-*> Download DLAISNAN + dependencies 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlaisnan.f"> 
-*> [TGZ]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlaisnan.f"> 
-*> [ZIP]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlaisnan.f"> 
-*> [TXT]</a>
-*> \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 September 2012
-*
-*> \ingroup auxOTHERauxiliary
-*
-*  =====================================================================
-      LOGICAL FUNCTION DLAISNAN( DIN1, DIN2 )
-*
-*  -- LAPACK auxiliary routine (version 3.4.2) --
-*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
-*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     September 2012
-*
-*     .. Scalar Arguments ..
-      DOUBLE PRECISION   DIN1, DIN2
-*     ..
-*
-*  =====================================================================
-*
-*  .. Executable Statements ..
-      DLAISNAN = (DIN1.NE.DIN2)
-      RETURN
-      END