.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\&.