slaisnan()

logical function slaisnan	(	real, intent(in)	sin1,
		real, intent(in)	sin2 )

SLAISNAN tests input for NaN by comparing two arguments for inequality.

Download SLAISNAN + dependencies [TGZ] [ZIP] [TXT]

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.
!>
!> 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.
!> 

Parameters

[in]	SIN1	!> SIN1 is REAL !>
[in]	SIN2	!> SIN2 is REAL !> Two numbers to compare for inequality. !>

Author

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line 71 of file slaisnan.f.

*
*  -- LAPACK auxiliary routine --
*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
*
*     .. Scalar Arguments ..
      REAL, INTENT(IN) :: SIN1, SIN2
*     ..
*
*  =====================================================================
*
*  .. Executable Statements ..
      slaisnan = (sin1.NE.sin2)
      RETURN

Here is the call graph for this function: