`01: `**LOGICAL** **FUNCTION** **SLAISNAN**(SIN1,SIN2)
02: ***
03: ** -- LAPACK auxiliary routine (version 3.2) --*
04: ** -- LAPACK is a software package provided by Univ. of Tennessee, --*
05: ** -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--*
06: ** November 2006*
07: ***
08: ** .. Scalar Arguments ..*
09: 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: ** SIN2 (input) REAL*
34: ** Two numbers to compare for inequality.*
35: ***
36: ** =====================================================================*
37: ***
38: ** .. Executable Statements ..*
39: SLAISNAN = (SIN1.NE.SIN2)
40: **RETURN**
41: **END**
42: