vendor/gonum.org/v1/gonum/lapack/internal/testdata/dlasqtest/disnan.f

   1 *> \brief \b DISNAN tests input for NaN.
   2 *
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *> \htmlonly
   9 *> Download DISNAN + dependencies
  10 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/disnan.f">
  11 *> [TGZ]</a>
  12 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/disnan.f">
  13 *> [ZIP]</a>
  14 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/disnan.f">
  15 *> [TXT]</a>
  16 *> \endhtmlonly
  17 *
  18 *  Definition:
  19 *  ===========
  20 *
  21 *       LOGICAL FUNCTION DISNAN( DIN )
  22 *
  23 *       .. Scalar Arguments ..
  24 *       DOUBLE PRECISION   DIN
  25 *       ..
  26 *
  27 *
  28 *> \par Purpose:
  29 *  =============
  30 *>
  31 *> \verbatim
  32 *>
  33 *> DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
  34 *> otherwise.  To be replaced by the Fortran 2003 intrinsic in the
  35 *> future.
  36 *> \endverbatim
  37 *
  38 *  Arguments:
  39 *  ==========
  40 *
  41 *> \param[in] DIN
  42 *> \verbatim
  43 *>          DIN is DOUBLE PRECISION
  44 *>          Input to test for NaN.
  45 *> \endverbatim
  46 *
  47 *  Authors:
  48 *  ========
  49 *
  50 *> \author Univ. of Tennessee
  51 *> \author Univ. of California Berkeley
  52 *> \author Univ. of Colorado Denver
  53 *> \author NAG Ltd.
  54 *
  55 *> \date September 2012
  56 *
  57 *> \ingroup auxOTHERauxiliary
  58 *
  59 *  =====================================================================
  60       LOGICAL FUNCTION DISNAN( DIN )
  61 *
  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..--
  65 *     September 2012
  66 *
  67 *     .. Scalar Arguments ..
  68       DOUBLE PRECISION   DIN
  69 *     ..
  70 *
  71 *  =====================================================================
  72 *
  73 *  .. External Functions ..
  74       LOGICAL DLAISNAN
  75       EXTERNAL DLAISNAN
  76 *  ..
  77 *  .. Executable Statements ..
  78       DISNAN = DLAISNAN(DIN,DIN)
  79       RETURN
  80       END