![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b SISNAN 00002 * 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 *> \htmlonly 00009 *> Download SISNAN + dependencies 00010 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/sisnan.f"> 00011 *> [TGZ]</a> 00012 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/sisnan.f"> 00013 *> [ZIP]</a> 00014 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/sisnan.f"> 00015 *> [TXT]</a> 00016 *> \endhtmlonly 00017 * 00018 * Definition: 00019 * =========== 00020 * 00021 * LOGICAL FUNCTION SISNAN( SIN ) 00022 * 00023 * .. Scalar Arguments .. 00024 * REAL SIN 00025 * .. 00026 * 00027 * 00028 *> \par Purpose: 00029 * ============= 00030 *> 00031 *> \verbatim 00032 *> 00033 *> SISNAN returns .TRUE. if its argument is NaN, and .FALSE. 00034 *> otherwise. To be replaced by the Fortran 2003 intrinsic in the 00035 *> future. 00036 *> \endverbatim 00037 * 00038 * Arguments: 00039 * ========== 00040 * 00041 *> \param[in] SIN 00042 *> \verbatim 00043 *> SIN is REAL 00044 *> Input to test for NaN. 00045 *> \endverbatim 00046 * 00047 * Authors: 00048 * ======== 00049 * 00050 *> \author Univ. of Tennessee 00051 *> \author Univ. of California Berkeley 00052 *> \author Univ. of Colorado Denver 00053 *> \author NAG Ltd. 00054 * 00055 *> \date November 2011 00056 * 00057 *> \ingroup auxOTHERauxiliary 00058 * 00059 * ===================================================================== 00060 LOGICAL FUNCTION SISNAN( SIN ) 00061 * 00062 * -- LAPACK auxiliary routine (version 3.4.0) -- 00063 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00064 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00065 * November 2011 00066 * 00067 * .. Scalar Arguments .. 00068 REAL SIN 00069 * .. 00070 * 00071 * ===================================================================== 00072 * 00073 * .. External Functions .. 00074 LOGICAL SLAISNAN 00075 EXTERNAL SLAISNAN 00076 * .. 00077 * .. Executable Statements .. 00078 SISNAN = SLAISNAN(SIN,SIN) 00079 RETURN 00080 END