01:       LOGICAL FUNCTION DISNAN(DIN)
02: *
03: *  -- LAPACK auxiliary routine (version 3.2) --
04: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
05: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
06: *     November 2006
07: *
08: *     .. Scalar Arguments ..
09:       DOUBLE PRECISION DIN
10: *     ..
11: *
12: *  Purpose
13: *  =======
14: *
15: *  DISNAN returns .TRUE. if its argument is NaN, and .FALSE.
16: *  otherwise.  To be replaced by the Fortran 2003 intrinsic in the
17: *  future.
18: *
19: *  Arguments
20: *  =========
21: *
22: *  DIN      (input) DOUBLE PRECISION
23: *          Input to test for NaN.
24: *
25: *  =====================================================================
26: *
27: *  .. External Functions ..
28:       LOGICAL DLAISNAN
29:       EXTERNAL DLAISNAN
30: *  ..
31: *  .. Executable Statements ..
32:       DISNAN = DLAISNAN(DIN,DIN)
33:       RETURN
34:       END
35: