d8/d02/sisnan_8f_source.html

00001       LOGICAL FUNCTION SISNAN( SIN )
00002 *
00003 *  -- LAPACK auxiliary routine (version 3.2.2) --
00004 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
00005 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
00006 *     June 2010
00007 *
00008 *     .. Scalar Arguments ..
00009       REAL               SIN
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  SISNAN returns .TRUE. if its argument is NaN, and .FALSE.
00016 *  otherwise.  To be replaced by the Fortran 2003 intrinsic in the
00017 *  future.
00018 *
00019 *  Arguments
00020 *  =========
00021 *
00022 *  SIN     (input) REAL
00023 *          Input to test for NaN.
00024 *
00025 *  =====================================================================
00026 *
00027 *  .. External Functions ..
00028       LOGICAL SLAISNAN
00029       EXTERNAL SLAISNAN
00030 *  ..
00031 *  .. Executable Statements ..
00032       SISNAN = SLAISNAN(SIN,SIN)
00033       RETURN
00034       END