Diff for /rpl/lapack/lapack/ieeeck.f between versions 1.3 and 1.9

version 1.3, 2010/08/06 15:28:50 version 1.9, 2011/07/22 07:38:13
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.3.1) --
 *  -- 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  *  -- April 2011                                                      --
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER            ISPEC        INTEGER            ISPEC
Line 39 Line 39
 *          = 0:  Arithmetic failed to produce the correct answers  *          = 0:  Arithmetic failed to produce the correct answers
 *          = 1:  Arithmetic produced the correct answers  *          = 1:  Arithmetic produced the correct answers
 *  *
   *  =====================================================================
   *
 *     .. Local Scalars ..  *     .. Local Scalars ..
       REAL               NAN1, NAN2, NAN3, NAN4, NAN5, NAN6, NEGINF,        REAL               NAN1, NAN2, NAN3, NAN4, NAN5, NAN6, NEGINF,
      $                   NEGZRO, NEWZRO, POSINF       $                   NEGZRO, NEWZRO, POSINF
Line 112 Line 114
 *  *
       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.3  
changed lines
  Added in v.1.9


CVSweb interface <joel.bertrand@systella.fr>