Visible to Intel only — GUID: GUID-12D542CF-2A34-40B4-A2AF-89375F0C5DB8
Visible to Intel only — GUID: GUID-12D542CF-2A34-40B4-A2AF-89375F0C5DB8
?tgsen
Reorders the generalized Schur decomposition of a pair of matrices (A,B) so that a selected cluster of eigenvalues appears in the leading diagonal blocks of (A,B).
Syntax
call stgsen(ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork, info)
call dtgsen(ijob, wantq, wantz, select, n, a, lda, b, ldb, alphar, alphai, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork, info)
call ctgsen(ijob, wantq, wantz, select, n, a, lda, b, ldb, alpha, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork, info)
call ztgsen(ijob, wantq, wantz, select, n, a, lda, b, ldb, alpha, beta, q, ldq, z, ldz, m, pl, pr, dif, work, lwork, iwork, liwork, info)
call tgsen(a, b, select [,alphar] [,alphai] [,beta] [,ijob] [,q] [,z] [,pl] [,pr] [,dif] [,m] [,info])
call tgsen(a, b, select [,alpha] [,beta] [,ijob] [,q] [,z] [,pl] [,pr] [, dif] [,m] [,info])
Include Files
- mkl.fi, lapack.f90
Description
The routine reorders the generalized real-Schur/Schur decomposition of a real/complex matrix pair (A, B) (in terms of an orthogonal/unitary equivalence transformation QT*(A,B)*Z for real flavors or QH*(A,B)*Z for complex flavors), so that a selected cluster of eigenvalues appears in the leading diagonal blocks of the pair (A, B). The leading columns of Q and Z form orthonormal/unitary bases of the corresponding left and right eigenspaces (deflating subspaces).
(A, B) must be in generalized real-Schur/Schur canonical form (as returned by gges), that is, A and B are both upper triangular.
?tgsen also computes the generalized eigenvalues
ωj = (alphar(j) + alphai(j)*i)/beta(j) (for real flavors)
ωj = alpha(j)/beta(j) (for complex flavors)
of the reordered matrix pair (A, B).
Optionally, the routine computes the estimates of reciprocal condition numbers for eigenvalues and eigenspaces. These are Difu[(A11, B11), (A22, B22)] and Difl[(A11, B11), (A22, B22)], that is, the separation(s) between the matrix pairs (A11, B11) and (A22, B22) that correspond to the selected cluster and the eigenvalues outside the cluster, respectively, and norms of "projections" onto left and right eigenspaces with respect to the selected cluster in the (1,1)-block.
Input Parameters
- ijob
-
INTEGER. Specifies whether condition numbers are required for the cluster of eigenvalues (pl and pr) or the deflating subspaces Difu and Difl.
If ijob =0, only reorder with respect to select;
If ijob =1, reciprocal of norms of "projections" onto left and right eigenspaces with respect to the selected cluster (pl and pr);
If ijob =2, compute upper bounds on Difu and Difl, using F-norm-based estimate (dif (1:2));
If ijob =3, compute estimate of Difu and Difl, using 1-norm-based estimate (dif (1:2)). This option is about 5 times as expensive as ijob =2;
If ijob =4,>compute pl, pr and dif (i.e., options 0, 1 and 2 above). This is an economic version to get it all;
If ijob =5, compute pl, pr and dif (i.e., options 0, 1 and 3 above).
- wantq, wantz
-
LOGICAL.
If wantq = .TRUE., update the left transformation matrix Q;
If wantq = .FALSE., do not update Q;
If wantz = .TRUE., update the right transformation matrix Z;
If wantz = .FALSE., do not update Z.
- select
-
LOGICAL.
Array, size at least max (1, n). Specifies the eigenvalues in the selected cluster.
To select an eigenvalue ωj, select(j) must be .TRUE.For real flavors: to select a complex conjugate pair of eigenvalues ωj and ωj + 1 (corresponding 2 by 2 diagonal block), select(j) and/or select(j + 1) must be set to .TRUE.; the complex conjugate ωj and ωj + 1 must be either both included in the cluster or both excluded.
- n
-
INTEGER. The order of the matrices A and B (n≥ 0).
- a, b, q, z, work
-
REAL for stgsen
DOUBLE PRECISION for dtgsen
COMPLEX for ctgsen
DOUBLE COMPLEX for ztgsen.
Arrays:
a(lda,*) contains the matrix A.
For real flavors: A is upper quasi-triangular, with (A, B) in generalized real Schur canonical form.
For complex flavors: A is upper triangular, in generalized Schur canonical form.
The second dimension of a must be at least max(1, n).
b(ldb,*) contains the matrix B.
For real flavors: B is upper triangular, with (A, B) in generalized real Schur canonical form.
For complex flavors: B is upper triangular, in generalized Schur canonical form. The second dimension of b must be at least max(1, n).
q(ldq,*)
If wantq = .TRUE., then q is an n-by-n matrix;
If wantq = .FALSE., then q is not referenced.
The second dimension of q must be at least max(1, n).
z(ldz,*)
If wantz = .TRUE., then z is an n-by-n matrix;
If wantz = .FALSE., then z is not referenced.
The second dimension of z must be at least max(1, n).
work is a workspace array, its dimension max(1, lwork).
- lda
-
INTEGER. The leading dimension of a; at least max(1, n).
- ldb
-
INTEGER. The leading dimension of b; at least max(1, n).
- ldq
-
INTEGER. The leading dimension of q; ldq≥ 1.
If wantq = .TRUE., then ldq≥ max(1, n).
- ldz
-
INTEGER. The leading dimension of z; ldz≥ 1.
If wantz = .TRUE., then ldz≥ max(1, n).
- lwork
-
INTEGER. The dimension of the array work.
For real flavors:
If ijob = 1, 2, or 4, lwork≥ max(4n+16, 2m(n-m)).
If ijob = 3 or 5, lwork≥ max(4n+16, 4m(n-m)).
For complex flavors:
If ijob = 1, 2, or 4, lwork≥ max(1, 2m(n-m)).
If ijob = 3 or 5, lwork≥ max(1, 4m(n-m)).
If lwork = -1, then a workspace query is assumed; the routine only calculates the optimal size of the work array, returns this value as the first entry of the work array, and no error message related to lwork is issued by xerbla. See Application Notes for details.
- iwork
-
INTEGER. Workspace array, its dimension max(1, liwork).
- liwork
-
INTEGER. The dimension of the array iwork.
For real flavors:
If ijob = 1, 2, or 4, liwork≥n+6.
If ijob = 3 or 5, liwork≥ max(n+6, 2m(n-m)).
For complex flavors:
If ijob = 1, 2, or 4, liwork≥n+2.
If ijob = 3 or 5, liwork≥ max(n+2, 2m(n-m)).
If liwork = -1, then a workspace query is assumed; the routine only calculates the optimal size of the iwork array, returns this value as the first entry of the iwork array, and no error message related to liwork is issued by xerbla. See Application Notes for details.
Output Parameters
- a, b
-
Overwritten by the reordered matrices A and B, respectively.
- alphar, alphai
-
REAL for stgsen;
DOUBLE PRECISION for dtgsen.
Arrays, size at least max(1, n). Contain values that form generalized eigenvalues in real flavors.
See beta.
- alpha
-
COMPLEX for ctgsen;
DOUBLE COMPLEX for ztgsen.
Array, size at least max(1, n). Contain values that form generalized eigenvalues in complex flavors.
See beta.
- beta
-
REAL for stgsen
DOUBLE PRECISION for dtgsen
COMPLEX for ctgsen
DOUBLE COMPLEX for ztgsen.
Array, size at least max(1, n).
For real flavors:
On exit, (alphar(j) + alphai(j)*i)/beta(j), j=1,..., n, will be the generalized eigenvalues.
alphar(j) + alphai(j)*i and beta(j), j=1,..., n are the diagonals of the complex Schur form (S,T) that would result if the 2-by-2 diagonal blocks of the real generalized Schur form of (A,B) were further reduced to triangular form using complex unitary transformations.
If alphai(j) is zero, then the j-th eigenvalue is real; if positive, then the j-th and (j + 1)-st eigenvalues are a complex conjugate pair, with alphai(j + 1) negative.
For complex flavors:
The diagonal elements of A and B, respectively, when the pair (A,B) has been reduced to generalized Schur form. alpha(i)/beta(i),i=1,..., n are the generalized eigenvalues.
- q
-
If wantq = .TRUE., then, on exit, Q has been postmultiplied by the left orthogonal transformation matrix which reorder (A, B). The leading m columns of Q form orthonormal bases for the specified pair of left eigenspaces (deflating subspaces).
- z
-
If wantz = .TRUE., then, on exit, Z has been postmultiplied by the left orthogonal transformation matrix which reorder (A, B). The leading m columns of Z form orthonormal bases for the specified pair of left eigenspaces (deflating subspaces).
- m
-
INTEGER.
The dimension of the specified pair of left and right eigen-spaces (deflating subspaces); 0 ≤m≤n.
- pl, pr
-
REAL for single precision flavors;
DOUBLE PRECISION for double precision flavors.
If ijob = 1, 4, or 5, pl and pr are lower bounds on the reciprocal of the norm of "projections" onto left and right eigenspaces with respect to the selected cluster.
0 < pl, pr≤ 1. If m = 0 or m = n, pl = pr = 1.
If ijob = 0, 2 or 3, pl and pr are not referenced
- dif
-
REAL for single precision flavors;DOUBLE PRECISION for double precision flavors.
Array, size (2).
If ijob≥ 2, dif(1:2) store the estimates of Difu and Difl.
If ijob = 2 or 4, dif(1:2) are F-norm-based upper bounds on Difu and Difl.
If ijob = 3 or 5, dif(1:2) are 1-norm-based estimates of Difu and Difl.
If m = 0 or m = n, dif(1:2) = F-norm([A, B]).
If ijob = 0 or 1, dif is not referenced.
- work(1)
-
If ijob is not 0 and info = 0, on exit, work(1) contains the minimum value of lwork required for optimum performance. Use this lwork for subsequent runs.
- iwork(1)
-
If ijob is not 0 and info = 0, on exit, iwork(1) contains the minimum value of liwork required for optimum performance. Use this liwork for subsequent runs.
- info
-
INTEGER.
If info = 0, the execution is successful.
If info = -i, the i-th parameter had an illegal value.
If info = 1, Reordering of (A, B) failed because the transformed matrix pair (A, B) would be too far from generalized Schur form; the problem is very ill-conditioned. (A, B) may have been partially reordered.
If ijob > 0, 0 is returned in dif, pl and pr.
LAPACK 95 Interface Notes
Routines in Fortran 95 interface have fewer arguments in the calling sequence than their FORTRAN 77 counterparts. For general conventions applied to skip redundant or restorable arguments, see LAPACK 95 Interface Conventions.
Specific details for the routine tgsen interface are the following:
- a
-
Holds the matrix A of size (n,n).
- b
-
Holds the matrix B of size (n,n).
- select
-
Holds the vector of length n.
- alphar
-
Holds the vector of length n. Used in real flavors only.
- alphai
-
Holds the vector of length n. Used in real flavors only.
- alpha
-
Holds the vector of length n. Used in complex flavors only.
- beta
-
Holds the vector of length n.
- q
-
Holds the matrix Q of size (n,n).
- z
-
Holds the matrix Z of size (n,n).
- dif
-
Holds the vector of length (2).
- ijob
-
Must be 0, 1, 2, 3, 4, or 5. The default value is 0.
- wantq
-
Restored based on the presence of the argument q as follows:
wantq = .TRUE, if q is present,
wantq = .FALSE, if q is omitted.
- wantz
-
Restored based on the presence of the argument z as follows:
wantz = .TRUE, if z is present,
wantz = .FALSE, if z is omitted.
Application Notes
If it is not clear how much workspace to supply, use a generous value of lwork (or liwork) for the first run or set lwork = -1 (liwork = -1).
If lwork (or liwork) has any of admissible sizes, which is no less than the minimal value described, the routine completes the task, though probably not so fast as with a recommended workspace, and provides the recommended workspace in the first element of the corresponding array (work, iwork) on exit. Use this value (work(1), iwork(1)) for subsequent runs.
If lwork = -1 (liwork = -1), the routine returns immediately and provides the recommended workspace in the first element of the corresponding array (work, iwork). This operation is called a workspace query.
Note that if lwork (liwork) is less than the minimal required value and is not equal to -1, the routine returns immediately with an error exit and does not provide any information on the recommended workspace.