Annotation of rpl/lapack/lapack/disnan.f, revision 1.5
1.5 ! bertrand 1: LOGICAL FUNCTION DISNAN( DIN )
1.1 bertrand 2: *
1.5 ! bertrand 3: * -- LAPACK auxiliary routine (version 3.2.2) --
1.1 bertrand 4: * -- LAPACK is a software package provided by Univ. of Tennessee, --
5: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
1.5 ! bertrand 6: * June 2010
1.1 bertrand 7: *
8: * .. Scalar Arguments ..
1.5 ! bertrand 9: DOUBLE PRECISION DIN
1.1 bertrand 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: *
1.5 ! bertrand 22: * DIN (input) DOUBLE PRECISION
1.1 bertrand 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>