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

Diff for /rpl/lapack/lapack/dgetrf.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 101 Line 101
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date November 2011  *> \date November 2015
 *  *
 *> \ingroup doubleGEcomputational  *> \ingroup doubleGEcomputational
 *  *
 *  =====================================================================  *  =====================================================================
       SUBROUTINE DGETRF( M, N, A, LDA, IPIV, INFO )        SUBROUTINE DGETRF( M, N, A, LDA, IPIV, 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 ..
       INTEGER            INFO, LDA, M, N        INTEGER            INFO, LDA, M, N
Line 131 Line 131
       INTEGER            I, IINFO, J, JB, NB        INTEGER            I, IINFO, J, JB, NB
 *     ..  *     ..
 *     .. External Subroutines ..  *     .. External Subroutines ..
       EXTERNAL           DGEMM, DGETF2, DLASWP, DTRSM, XERBLA        EXTERNAL           DGEMM, DGETRF2, DLASWP, DTRSM, XERBLA
 *     ..  *     ..
 *     .. External Functions ..  *     .. External Functions ..
       INTEGER            ILAENV        INTEGER            ILAENV
Line 169 Line 169
 *  *
 *        Use unblocked code.  *        Use unblocked code.
 *  *
          CALL DGETF2( M, N, A, LDA, IPIV, INFO )           CALL DGETRF2( M, N, A, LDA, IPIV, INFO )
       ELSE        ELSE
 *  *
 *        Use blocked code.  *        Use blocked code.
Line 180 Line 180
 *           Factor diagonal and subdiagonal blocks and test for exact  *           Factor diagonal and subdiagonal blocks and test for exact
 *           singularity.  *           singularity.
 *  *
             CALL DGETF2( M-J+1, JB, A( J, J ), LDA, IPIV( J ), IINFO )              CALL DGETRF2( M-J+1, JB, A( J, J ), LDA, IPIV( J ), IINFO )
 *  *
 *           Adjust INFO and the pivot indices.  *           Adjust INFO and the pivot indices.
 *  *
Removed from v.1.12  
changed lines
  Added in v.1.13

CVSweb interface <joel.bertrand@systella.fr>