LOGICAL FUNCTION SISNAN(SIN) * * -- LAPACK auxiliary routine (version 3.1) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * November 2006 * * .. Scalar Arguments .. REAL SIN * .. * * Purpose * ======= * * SISNAN returns .TRUE. if its argument is NaN, and .FALSE. * otherwise. To be replaced by the Fortran 2003 intrinsic in the * future. * * Arguments * ========= * * SIN (input) REAL * Input to test for NaN. * * ===================================================================== * * .. External Functions .. LOGICAL SLAISNAN EXTERNAL SLAISNAN * .. * .. Executable Statements .. SISNAN = SLAISNAN(SIN,SIN) RETURN END