src/LAPACK/disnan.f

   1       LOGICAL FUNCTION DISNAN(DIN)
   2 *
   3 *  -- LAPACK auxiliary routine (version 3.1) --
   4 *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
   5 *     November 2006
   6 *
   7 *     .. Scalar Arguments ..
   8       DOUBLE PRECISION DIN
   9 *     ..
  10 *
  11 *  Purpose
  12 *  =======
  13 *
  14 *  DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
  15 *  otherwise.  To be replaced by the Fortran 2003 intrinsic in the
  16 *  future.
  17 *
  18 *  Arguments
  19 *  =========
  20 *
  21 *  DIN      (input) DOUBLE PRECISION
  22 *          Input to test for NaN.
  23 *
  24 *  =====================================================================
  25 *
  26 *  .. External Functions ..
  27       LOGICAL DLAISNAN
  28       EXTERNAL DLAISNAN
  29 *  ..
  30 *  .. Executable Statements ..
  31       DISNAN = DLAISNAN(DIN,DIN)
  32       RETURN
  33       END