View | Details | Raw Unified | Return to bug 15211
Collapse All | Expand All

(-)src/modules/lapack/dlapack.f (-3 / +5 lines)
Lines 73409-73417 Link Here
73409
*  =====================================================================
73409
*  =====================================================================
73410
*
73410
*
73411
*     .. Parameters ..
73411
*     .. Parameters ..
73412
      DOUBLE PRECISION   ZERO, TWO, HALF
73412
      DOUBLE PRECISION   ZERO, TWO, HALF, INFINITY
73413
      PARAMETER        ( ZERO = 0.0D0, TWO = 2.0D0,
73413
      PARAMETER        ( ZERO = 0.0D0, TWO = 2.0D0,
73414
     $                   HALF = 0.5D0 )
73414
     $                   HALF = 0.5D0, INFINITY = 1.7D308 )
73415
      INTEGER   MAXITR
73415
      INTEGER   MAXITR
73416
*     ..
73416
*     ..
73417
*     .. Local Scalars ..
73417
*     .. Local Scalars ..
Lines 73486-73492 Link Here
73486
          IF( NEGCNT.LT.I ) THEN
73486
          IF( NEGCNT.LT.I ) THEN
73487
             RIGHT = RIGHT + BACK
73487
             RIGHT = RIGHT + BACK
73488
             BACK = TWO*BACK
73488
             BACK = TWO*BACK
73489
             GO TO 50
73489
             IF( RIGHT.LT.INFINITY ) THEN
73490
                GO TO 50
73491
             END IF
73490
          END IF
73492
          END IF
73491
         WIDTH = HALF*ABS( LEFT - RIGHT )
73493
         WIDTH = HALF*ABS( LEFT - RIGHT )
73492
         TMP = MAX( ABS( LEFT ), ABS( RIGHT ) )
73494
         TMP = MAX( ABS( LEFT ), ABS( RIGHT ) )

Return to bug 15211