[BACK]Return to dggbak.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/dggbak.f between versions 1.12 and 1.13

version 1.12, 2014/01/27 09:28:17 version 1.13, 2015/11/26 11:44:16
Line 130 Line 130
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date November 2011  *> \date November 2015
 *  *
 *> \ingroup doubleGBcomputational  *> \ingroup doubleGBcomputational
 *  *
Line 147 Line 147
       SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V,        SUBROUTINE DGGBAK( JOB, SIDE, N, ILO, IHI, LSCALE, RSCALE, M, V,
      $                   LDV, INFO )       $                   LDV, INFO )
 *  *
 *  -- LAPACK computational routine (version 3.4.0) --  *  -- LAPACK computational routine (version 3.6.0) --
 *  -- 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 2011  *     November 2015
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          JOB, SIDE        CHARACTER          JOB, SIDE
Line 174 Line 174
       EXTERNAL           DSCAL, DSWAP, XERBLA        EXTERNAL           DSCAL, DSWAP, XERBLA
 *     ..  *     ..
 *     .. Intrinsic Functions ..  *     .. Intrinsic Functions ..
       INTRINSIC          MAX        INTRINSIC          MAX, INT
 *     ..  *     ..
 *     .. Executable Statements ..  *     .. Executable Statements ..
 *  *
Line 255 Line 255
      $         GO TO 50       $         GO TO 50
 *  *
             DO 40 I = ILO - 1, 1, -1              DO 40 I = ILO - 1, 1, -1
                K = RSCALE( I )                 K = INT(RSCALE( I ))
                IF( K.EQ.I )                 IF( K.EQ.I )
      $            GO TO 40       $            GO TO 40
                CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )                 CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )
Line 265 Line 265
             IF( IHI.EQ.N )              IF( IHI.EQ.N )
      $         GO TO 70       $         GO TO 70
             DO 60 I = IHI + 1, N              DO 60 I = IHI + 1, N
                K = RSCALE( I )                 K = INT(RSCALE( I ))
                IF( K.EQ.I )                 IF( K.EQ.I )
      $            GO TO 60       $            GO TO 60
                CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )                 CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )
Line 279 Line 279
             IF( ILO.EQ.1 )              IF( ILO.EQ.1 )
      $         GO TO 90       $         GO TO 90
             DO 80 I = ILO - 1, 1, -1              DO 80 I = ILO - 1, 1, -1
                K = LSCALE( I )                 K = INT(LSCALE( I ))
                IF( K.EQ.I )                 IF( K.EQ.I )
      $            GO TO 80       $            GO TO 80
                CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )                 CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )
Line 289 Line 289
             IF( IHI.EQ.N )              IF( IHI.EQ.N )
      $         GO TO 110       $         GO TO 110
             DO 100 I = IHI + 1, N              DO 100 I = IHI + 1, N
                K = LSCALE( I )                 K = INT(LSCALE( I ))
                IF( K.EQ.I )                 IF( K.EQ.I )
      $            GO TO 100       $            GO TO 100
                CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )                 CALL DSWAP( M, V( I, 1 ), LDV, V( K, 1 ), LDV )
Removed from v.1.12  
changed lines
  Added in v.1.13

CVSweb interface <joel.bertrand@systella.fr>