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, INTENT(IN) :: 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*> \ingroup OTHERauxiliary 56* 57* ===================================================================== 58 LOGICAL FUNCTION DISNAN( DIN ) 59* 60* -- LAPACK auxiliary routine -- 61* -- LAPACK is a software package provided by Univ. of Tennessee, -- 62* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 63* 64* .. Scalar Arguments .. 65 DOUBLE PRECISION, INTENT(IN) :: DIN 66* .. 67* 68* ===================================================================== 69* 70* .. External Functions .. 71 LOGICAL DLAISNAN 72 EXTERNAL DLAISNAN 73* .. 74* .. Executable Statements .. 75 DISNAN = DLAISNAN(DIN,DIN) 76 RETURN 77 END 78