1 LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 )
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 REAL SIN1, SIN2
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * This routine is not for general use. It exists solely to avoid
16 * over-optimization in SISNAN.
17 *
18 * SLAISNAN 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 * SIN1 (input) REAL
33 *
34 * SIN2 (input) REAL
35 * Two numbers to compare for inequality.
36 *
37 * =====================================================================
38 *
39 * .. Executable Statements ..
40 SLAISNAN = (SIN1.NE.SIN2)
41 RETURN
42 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 REAL SIN1, SIN2
10 * ..
11 *
12 * Purpose
13 * =======
14 *
15 * This routine is not for general use. It exists solely to avoid
16 * over-optimization in SISNAN.
17 *
18 * SLAISNAN 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 * SIN1 (input) REAL
33 *
34 * SIN2 (input) REAL
35 * Two numbers to compare for inequality.
36 *
37 * =====================================================================
38 *
39 * .. Executable Statements ..
40 SLAISNAN = (SIN1.NE.SIN2)
41 RETURN
42 END