Merge pull request #201 from Bytom/v0.1

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

diff --git a/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/disnan.f b/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/disnan.f
deleted file mode 100644 (file)
index 355b827..0000000
--- a/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dsterftest/disnan.f
+++ /dev/null
@@ -1,80 +0,0 @@
-*> \brief \b DISNAN tests input for NaN.
-*
-*  =========== DOCUMENTATION ===========
-*
-* Online html documentation available at 
-*            http://www.netlib.org/lapack/explore-html/ 
-*
-*> \htmlonly
-*> Download DISNAN + dependencies 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/disnan.f"> 
-*> [TGZ]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/disnan.f"> 
-*> [ZIP]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/disnan.f"> 
-*> [TXT]</a>
-*> \endhtmlonly 
-*
-*  Definition:
-*  ===========
-*
-*       LOGICAL FUNCTION DISNAN( DIN )
-* 
-*       .. Scalar Arguments ..
-*       DOUBLE PRECISION   DIN
-*       ..
-*  
-*
-*> \par Purpose:
-*  =============
-*>
-*> \verbatim
-*>
-*> DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
-*> otherwise.  To be replaced by the Fortran 2003 intrinsic in the
-*> future.
-*> \endverbatim
-*
-*  Arguments:
-*  ==========
-*
-*> \param[in] DIN
-*> \verbatim
-*>          DIN is DOUBLE PRECISION
-*>          Input to test for NaN.
-*> \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 DISNAN( DIN )
-*
-*  -- 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   DIN
-*     ..
-*
-*  =====================================================================
-*
-*  .. External Functions ..
-      LOGICAL DLAISNAN
-      EXTERNAL DLAISNAN
-*  ..
-*  .. Executable Statements ..
-      DISNAN = DLAISNAN(DIN,DIN)
-      RETURN
-      END