Diff for /rpl/lapack/lapack/dtgexc.f between versions 1.8 and 1.9

version 1.8, 2010/12/21 13:53:40 version 1.9, 2011/07/22 07:38:12
Line 1 Line 1
       SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,        SUBROUTINE DTGEXC( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
      $                   LDZ, IFST, ILST, WORK, LWORK, INFO )       $                   LDZ, IFST, ILST, WORK, LWORK, INFO )
 *  *
 *  -- LAPACK routine (version 3.2.2) --  *  -- LAPACK routine (version 3.3.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..--
 *     June 2010  *  -- April 2011                                                      --
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       LOGICAL            WANTQ, WANTZ        LOGICAL            WANTQ, WANTZ
Line 21 Line 21
 *  DTGEXC reorders the generalized real Schur decomposition of a real  *  DTGEXC reorders the generalized real Schur decomposition of a real
 *  matrix pair (A,B) using an orthogonal equivalence transformation  *  matrix pair (A,B) using an orthogonal equivalence transformation
 *  *
 *                 (A, B) = Q * (A, B) * Z',  *                 (A, B) = Q * (A, B) * Z**T,
 *  *
 *  so that the diagonal block of (A, B) with row index IFST is moved  *  so that the diagonal block of (A, B) with row index IFST is moved
 *  to row ILST.  *  to row ILST.
Line 33 Line 33
 *  Optionally, the matrices Q and Z of generalized Schur vectors are  *  Optionally, the matrices Q and Z of generalized Schur vectors are
 *  updated.  *  updated.
 *  *
 *         Q(in) * A(in) * Z(in)' = Q(out) * A(out) * Z(out)'  *         Q(in) * A(in) * Z(in)**T = Q(out) * A(out) * Z(out)**T
 *         Q(in) * B(in) * Z(in)' = Q(out) * B(out) * Z(out)'  *         Q(in) * B(in) * Z(in)**T = Q(out) * B(out) * Z(out)**T
 *  *
 *  *
 *  Arguments  *  Arguments

Removed from v.1.8  
changed lines
  Added in v.1.9


CVSweb interface <joel.bertrand@systella.fr>