1 LOGICAL FUNCTION DISNAN( DIN )
2 *
3 * -- LAPACK auxiliary routine (version 3.2.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 * June 2010
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
2 *
3 * -- LAPACK auxiliary routine (version 3.2.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 * June 2010
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