#include "blaswrap.h"
#include "f2c.h"
logical slaisnan_(real *sin1, real *sin2)
{
/* -- LAPACK auxiliary routine (version 3.1) --
Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
November 2006
Purpose
=======
This routine is not for general use. It exists solely to avoid
over-optimization in SISNAN.
SLAISNAN checks for NaNs by comparing its two arguments for
inequality. NaN is the only floating-point value where NaN != NaN
returns .TRUE. To check for NaNs, pass the same variable as both
arguments.
Strictly speaking, Fortran does not allow aliasing of function
arguments. So a compiler must assume that the two arguments are
not the same variable, and the test will not be optimized away.
Interprocedural or whole-program optimization may delete this
test. The ISNAN functions will be replaced by the correct
Fortran 03 intrinsic once the intrinsic is widely available.
Arguments
=========
SIN1 (input) REAL
SIN2 (input) REAL
Two numbers to compare for inequality.
===================================================================== */
/* System generated locals */
logical ret_val;
ret_val = *sin1 != *sin2;
return ret_val;
} /* slaisnan_ */