.TH "TESTING/EIG/dget40.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*-
.ad l
.nh
.SH NAME
TESTING/EIG/dget40.f
.SH SYNOPSIS
.br
.PP
.SS "Functions/Subroutines"

.in +1c
.ti -1c
.RI "subroutine \fBdget40\fP (rmax, lmax, ninfo, knt, nin)"
.br
.RI "\fBDGET40\fP "
.in -1c
.SH "Function/Subroutine Documentation"
.PP 
.SS "subroutine dget40 (double precision rmax, integer lmax, integer, dimension( 2 ) ninfo, integer knt, integer nin)"

.PP
\fBDGET40\fP 
.PP
\fBPurpose:\fP
.RS 4

.PP
.nf
 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\&.
.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( 1 ) = DTGEXC without accumulation returned INFO nonzero
          NINFO( 2 ) = DTGEXC with accumulation returned INFO nonzero
.fi
.PP
.br
\fIKNT\fP 
.PP
.nf
          KNT is INTEGER
          Total number of examples tested\&.
.fi
.PP
.br
\fININ\fP 
.PP
.nf
          NIN is INTEGER
          Input logical unit number\&.
.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 \fB84\fP of file \fBdget40\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.