removed lapack 3.6.0

lapack-netlib/SRC/slaisnan.f

@@ -1,91 +0,0 @@
-*> \brief \b SLAISNAN tests input for NaN by comparing two arguments for inequality.
-*
-*  =========== DOCUMENTATION ===========
-*
-* Online html documentation available at 
-*            http://www.netlib.org/lapack/explore-html/ 
-*
-*> \htmlonly
-*> Download SLAISNAN + dependencies 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/slaisnan.f"> 
-*> [TGZ]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/slaisnan.f"> 
-*> [ZIP]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/slaisnan.f"> 
-*> [TXT]</a>
-*> \endhtmlonly 
-*
-*  Definition:
-*  ===========
-*
-*       LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 )
-* 
-*       .. Scalar Arguments ..
-*       REAL               SIN1, SIN2
-*       ..
-*  
-*
-*> \par Purpose:
-*  =============
-*>
-*> \verbatim
-*>
-*> 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.
-*> \endverbatim
-*
-*  Arguments:
-*  ==========
-*
-*> \param[in] SIN1
-*> \verbatim
-*>          SIN1 is REAL
-*> \endverbatim
-*>
-*> \param[in] SIN2
-*> \verbatim
-*>          SIN2 is REAL
-*>          Two numbers to compare for inequality.
-*> \endverbatim
-*
-*  Authors:
-*  ========
-*
-*> \author Univ. of Tennessee 
-*> \author Univ. of California Berkeley 
-*> \author Univ. of Colorado Denver 
-*> \author NAG Ltd. 
-*
-*> \date September 2012
-*
-*> \ingroup auxOTHERauxiliary
-*
-*  =====================================================================
-      LOGICAL FUNCTION SLAISNAN( SIN1, SIN2 )
-*
-*  -- LAPACK auxiliary routine (version 3.4.2) --
-*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
-*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     September 2012
-*
-*     .. Scalar Arguments ..
-      REAL               SIN1, SIN2
-*     ..
-*
-*  =====================================================================
-*
-*  .. Executable Statements ..
-      SLAISNAN = (SIN1.NE.SIN2)
-      RETURN
-      END