github.com/gonum/lapack@v0.0.0-20181123203213-e4cdc5a0bff9/internal/testdata/dlasqtest/disnan.f (about)

     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