sisnan.f

          LOGICAL FUNCTION SISNAN(SIN)
    *
    *  -- LAPACK auxiliary routine (version 3.1) --
    *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
    *     November 2006
    *
    *     .. Scalar Arguments ..
          REAL SIN
    *     ..
    *
    *  Purpose
    *  =======
    *
    *  SISNAN returns .TRUE. if its argument is NaN, and .FALSE.
    *  otherwise.  To be replaced by the Fortran 2003 intrinsic in the
    *  future.
    *
    *  Arguments
    *  =========
    *
    *  SIN      (input) REAL
    *          Input to test for NaN.
    *
    *  =====================================================================
    *
    *  .. External Functions ..
          LOGICAL SLAISNAN
          EXTERNAL SLAISNAN
    *  ..
    *  .. Executable Statements ..
          SISNAN = SLAISNAN(SIN,SIN)
          RETURN
          END