1: LOGICAL FUNCTION DLAISNAN(DIN1,DIN2)
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 DIN1,DIN2
10: * ..
11: *
12: * Purpose
13: * =======
14: *
15: * This routine is not for general use. It exists solely to avoid
16: * over-optimization in DISNAN.
17: *
18: * DLAISNAN checks for NaNs by comparing its two arguments for
19: * inequality. NaN is the only floating-point value where NaN != NaN
20: * returns .TRUE. To check for NaNs, pass the same variable as both
21: * arguments.
22: *
23: * A compiler must assume that the two arguments are
24: * not the same variable, and the test will not be optimized away.
25: * Interprocedural or whole-program optimization may delete this
26: * test. The ISNAN functions will be replaced by the correct
27: * Fortran 03 intrinsic once the intrinsic is widely available.
28: *
29: * Arguments
30: * =========
31: *
32: * DIN1 (input) DOUBLE PRECISION
33: * DIN2 (input) DOUBLE PRECISION
34: * Two numbers to compare for inequality.
35: *
36: * =====================================================================
37: *
38: * .. Executable Statements ..
39: DLAISNAN = (DIN1.NE.DIN2)
40: RETURN
41: END
CVSweb interface <joel.bertrand@systella.fr>