logical function sisnan

(

real

SIN

)

SISNAN tests input for NaN.

Download SISNAN + dependencies [TGZ] [ZIP] [TXT]

Purpose:

 SISNAN returns .TRUE. if its argument is NaN, and .FALSE.
 otherwise.  To be replaced by the Fortran 2003 intrinsic in the
 future.

Parameters

[in]

SIN

SIN is REAL Input to test for NaN.

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Date

September 2012

Definition at line 61 of file sisnan.f.

*
*  -- 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 ..
      REAL               sin
*     ..
*
*  =====================================================================
*
*  .. External Functions ..
      LOGICAL slaisnan
      EXTERNAL slaisnan
*  ..
*  .. Executable Statements ..
      sisnan = slaisnan(sin,sin)
      RETURN