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

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

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

.PP
.nf
!>
!> DGET36 tests DTREXC, a routine for moving 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' * T1 * Q  = T2
!>
!> and where one of the diagonal blocks of T1 (the one at row IFST) has
!> been moved to position ILST\&.
!>
!> The test code verifies that the residual Q'*T1*Q-T2 is small, that T2
!> is in Schur form, and that the final position of the IFST block is
!> ILST (within +-1)\&.
!>
!> The test matrices are read from a file with logical unit number NIN\&.
!> 
.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 (3)
!>          NINFO(J) is the number of examples where INFO=J\&.
!> 
.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 \fB87\fP of file \fBdget36\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.