df/da6/disnan_8f_source.html

00001       LOGICAL FUNCTION DISNAN( DIN )
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       DOUBLE PRECISION   DIN
00010 *     ..
00011 *
00012 *  Purpose
00013 *  =======
00014 *
00015 *  DISNAN 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 *  DIN     (input) DOUBLE PRECISION
00023 *          Input to test for NaN.
00024 *
00025 *  =====================================================================
00026 *
00027 *  .. External Functions ..
00028       LOGICAL DLAISNAN
00029       EXTERNAL DLAISNAN
00030 *  ..
00031 *  .. Executable Statements ..
00032       DISNAN = DLAISNAN(DIN,DIN)
00033       RETURN
00034       END