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

Diff for /rpl/lapack/lapack/dgeqp3.f between versions 1.10 and 1.15

version 1.10, 2011/11/21 22:19:27 version 1.15, 2015/11/26 11:44:15
Line 120 Line 120
 *> \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
 *  *
Line 137 Line 137
 *>  *>
 *>     H(i) = I - tau * v * v**T  *>     H(i) = I - tau * v * v**T
 *>  *>
 *>  where tau is a real/complex scalar, and v is a real/complex vector  *>  where tau is a real scalar, and v is a real/complex vector
 *>  with v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in  *>  with v(1:i-1) = 0 and v(i) = 1; v(i+1:m) is stored on exit in
 *>  A(i+1:m,i), and tau in TAU(i).  *>  A(i+1:m,i), and tau in TAU(i).
 *> \endverbatim  *> \endverbatim
Line 151 Line 151
 *  =====================================================================  *  =====================================================================
       SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, INFO )        SUBROUTINE DGEQP3( M, N, A, LDA, JPVT, TAU, WORK, LWORK, 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, LWORK, M, N        INTEGER            INFO, LDA, LWORK, M, N
Line 225 Line 225
          RETURN           RETURN
       END IF        END IF
 *  *
 *     Quick return if possible.  
 *  
       IF( MINMN.EQ.0 ) THEN  
          RETURN  
       END IF  
 *  
 *     Move initial columns up front.  *     Move initial columns up front.
 *  *
       NFXD = 1        NFXD = 1
Removed from v.1.10  
changed lines
  Added in v.1.15

CVSweb interface <joel.bertrand@systella.fr>