#include "blaswrap.h"
#include "f2c.h"
logical dlaisnan_(doublereal *din1, doublereal *din2)
{
/* -- 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 DISNAN.
DLAISNAN 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
=========
DIN1 (input) DOUBLE PRECISION
DIN2 (input) DOUBLE PRECISION
Two numbers to compare for inequality.
===================================================================== */
/* System generated locals */
logical ret_val;
ret_val = *din1 != *din2;
return ret_val;
} /* dlaisnan_ */