01:       LOGICAL FUNCTION DISNAN(DIN)
02: *
03: *  -- LAPACK auxiliary routine (version 3.2) --
04: *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
05: *     November 2006
06: *
07: *     .. Scalar Arguments ..
08:       DOUBLE PRECISION DIN
09: *     ..
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
34: