![]() |
LAPACK
3.10.1
LAPACK: Linear Algebra PACKage
|
subroutine dget40 | ( | double precision | RMAX, |
integer | LMAX, | ||
integer, dimension( 3 ) | NINFO, | ||
integer | KNT, | ||
integer | NIN | ||
) |
DGET40
DGET40 tests DTGEXC, a routine for swapping adjacent blocks (either 1 by 1 or 2 by 2) on the diagonal of a pencil in real generalized Schur form. Thus, DTGEXC computes an orthogonal matrices Q and Z such that Q' * ( [ A B ], [ D E ] ) * Z = ( [ C1 B1 ], [ F1 E1 ] ) ( [ 0 C ] [ F ] ) ( [ 0 A1 ] [ D1] ) where (C1,F1) is similar to (C,F) and (A1,D1) is similar to (A,D). Both (A,D) and (C,F) are assumed to be in standard form and (A1,D1) and (C1,F1) are returned with the same properties.
[out] | RMAX | RMAX is DOUBLE PRECISION Value of the largest test ratio. |
[out] | LMAX | LMAX is INTEGER Example number where largest test ratio achieved. |
[out] | NINFO | NINFO is INTEGER(3) Number of examples where INFO is nonzero. |
[out] | KNT | KNT is INTEGER Total number of examples tested. |
[out] | NIN | NINFO is INTEGER |