1: LOGICAL FUNCTION DISNAN(DIN)
2: *
3: * -- LAPACK auxiliary routine (version 3.2) --
4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
6: * November 2006
7: *
8: * .. Scalar Arguments ..
9: 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
CVSweb interface <joel.bertrand@systella.fr>