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

Diff for /rpl/lapack/lapack/ztplqt.f between versions 1.2 and 1.3

version 1.2, 2017/06/17 11:07:04 version 1.3, 2018/05/29 06:55:26
Line 73 Line 73
 *>  *>
 *> \param[in,out] A  *> \param[in,out] A
 *> \verbatim  *> \verbatim
 *>          A is COMPLEX*16 array, dimension (LDA,N)  *>          A is COMPLEX*16 array, dimension (LDA,M)
 *>          On entry, the lower triangular N-by-N matrix A.  *>          On entry, the lower triangular M-by-M matrix A.
 *>          On exit, the elements on and below the diagonal of the array  *>          On exit, the elements on and below the diagonal of the array
 *>          contain the lower triangular matrix L.  *>          contain the lower triangular matrix L.
 *> \endverbatim  *> \endverbatim
Line 82 Line 82
 *> \param[in] LDA  *> \param[in] LDA
 *> \verbatim  *> \verbatim
 *>          LDA is INTEGER  *>          LDA is INTEGER
 *>          The leading dimension of the array A.  LDA >= max(1,N).  *>          The leading dimension of the array A.  LDA >= max(1,M).
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in,out] B  *> \param[in,out] B
Line 132 Line 132
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  *> \date June 2017
 *  *
 *> \ingroup doubleOTHERcomputational  *> \ingroup doubleOTHERcomputational
 *  *
Line 146 Line 146
 *>               C = [ A ] [ B ]  *>               C = [ A ] [ B ]
 *>  *>
 *>  *>
 *>  where A is an lower triangular N-by-N matrix, and B is M-by-N pentagonal  *>  where A is an lower triangular M-by-M matrix, and B is M-by-N pentagonal
 *>  matrix consisting of a M-by-(N-L) rectangular matrix B1 on left of a M-by-L  *>  matrix consisting of a M-by-(N-L) rectangular matrix B1 on left of a M-by-L
 *>  upper trapezoidal matrix B2:  *>  upper trapezoidal matrix B2:
 *>          [ B ] = [ B1 ] [ B2 ]  *>          [ B ] = [ B1 ] [ B2 ]
 *>                   [ B1 ]  <- M-by-(N-L) rectangular  *>                   [ B1 ]  <- M-by-(N-L) rectangular
 *>                   [ B2 ]  <-     M-by-L upper trapezoidal.  *>                   [ B2 ]  <-     M-by-L lower trapezoidal.
 *>  *>
 *>  The lower trapezoidal matrix B2 consists of the first L columns of a  *>  The lower trapezoidal matrix B2 consists of the first L columns of a
 *>  N-by-N lower triangular matrix, where 0 <= L <= MIN(M,N).  If L=0,  *>  M-by-M lower triangular matrix, where 0 <= L <= MIN(M,N).  If L=0,
 *>  B is rectangular M-by-N; if M=L=N, B is lower triangular.  *>  B is rectangular M-by-N; if M=L=N, B is lower triangular.
 *>  *>
 *>  The matrix W stores the elementary reflectors H(i) in the i-th row  *>  The matrix W stores the elementary reflectors H(i) in the i-th row
 *>  above the diagonal (of A) in the M-by-(M+N) input matrix C  *>  above the diagonal (of A) in the M-by-(M+N) input matrix C
 *>            [ C ] = [ A ] [ B ]  *>            [ C ] = [ A ] [ B ]
 *>                   [ A ]  <- lower triangular N-by-N  *>                   [ A ]  <- lower triangular M-by-M
 *>                   [ B ]  <- M-by-N pentagonal  *>                   [ B ]  <- M-by-N pentagonal
 *>  *>
 *>  so that W can be represented as  *>  so that W can be represented as
 *>            [ W ] = [ I ] [ V ]  *>            [ W ] = [ I ] [ V ]
 *>                   [ I ]  <- identity, N-by-N  *>                   [ I ]  <- identity, M-by-M
 *>                   [ V ]  <- M-by-N, same form as B.  *>                   [ V ]  <- M-by-N, same form as B.
 *>  *>
 *>  Thus, all of information needed for W is contained on exit in B, which  *>  Thus, all of information needed for W is contained on exit in B, which
Line 189 Line 189
       SUBROUTINE ZTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK,        SUBROUTINE ZTPLQT( M, N, L, MB, A, LDA, B, LDB, T, LDT, WORK,
      $                   INFO )       $                   INFO )
 *  *
 *  -- LAPACK computational routine (version 3.7.0) --  *  -- LAPACK computational routine (version 3.7.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..--
 *     December 2016  *     June 2017
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER     INFO, LDA, LDB, LDT, N, M, L, MB        INTEGER     INFO, LDA, LDB, LDT, N, M, L, MB
Removed from v.1.2  
changed lines
  Added in v.1.3

CVSweb interface <joel.bertrand@systella.fr>