.TH "TESTING/EIG/dget34.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/EIG/dget34.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBdget34\fP (rmax, lmax, ninfo, knt)" .br .RI "\fBDGET34\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine dget34 (double precision rmax, integer lmax, integer, dimension( 2 ) ninfo, integer knt)" .PP \fBDGET34\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> DGET34 tests DLAEXC, a routine for swapping adjacent blocks (either !> 1 by 1 or 2 by 2) on the diagonal of a matrix in real Schur form\&. !> Thus, DLAEXC computes an orthogonal matrix Q such that !> !> Q' * [ A B ] * Q = [ C1 B1 ] !> [ 0 C ] [ 0 A1 ] !> !> where C1 is similar to C and A1 is similar to A\&. Both A and C are !> assumed to be in standard form (equal diagonal entries and !> offdiagonal with differing signs) and A1 and C1 are returned with the !> same properties\&. !> !> The test code verifies these last assertions, as well as that !> the residual in the above equation is small\&. !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIRMAX\fP .PP .nf !> RMAX is DOUBLE PRECISION !> Value of the largest test ratio\&. !> .fi .PP .br \fILMAX\fP .PP .nf !> LMAX is INTEGER !> Example number where largest test ratio achieved\&. !> .fi .PP .br \fININFO\fP .PP .nf !> NINFO is INTEGER array, dimension (2) !> NINFO(J) is the number of examples where INFO=J occurred\&. !> .fi .PP .br \fIKNT\fP .PP .nf !> KNT is INTEGER !> Total number of examples tested\&. !> .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .PP Definition at line \fB81\fP of file \fBdget34\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.