Diff for /rpl/lapack/lapack/ieeeck.f between versions 1.2 and 1.5

version 1.2, 2010/04/21 13:45:27 version 1.5, 2010/08/07 13:18:08
Line 1 Line 1
       INTEGER          FUNCTION IEEECK( ISPEC, ZERO, ONE )        INTEGER          FUNCTION IEEECK( ISPEC, ZERO, ONE )
 *  *
 *  -- LAPACK auxiliary routine (version 3.2) --  *  -- LAPACK auxiliary routine (version 3.2.2) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --  *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--  *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     November 2006  *     June 2010
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER            ISPEC        INTEGER            ISPEC
Line 112 Line 112
 *  *
       NAN5 = NEGINF*NEGZRO        NAN5 = NEGINF*NEGZRO
 *  *
       NAN6 = NAN5*0.0        NAN6 = NAN5*ZERO
 *  *
       IF( NAN1.EQ.NAN1 ) THEN        IF( NAN1.EQ.NAN1 ) THEN
          IEEECK = 0           IEEECK = 0

Removed from v.1.2  
changed lines
  Added in v.1.5


CVSweb interface <joel.bertrand@systella.fr>