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

.in +1c
.ti -1c
.RI "subroutine \fBzckcsd\fP (nm, mval, pval, qval, nmats, iseed, thresh, mmax, x, xf, u1, u2, v1t, v2t, theta, iwork, work, rwork, nin, nout, info)"
.br
.RI "\fBZCKCSD\fP "
.ti -1c
.RI "subroutine \fBzlacsg\fP (m, p, q, theta, iseed, x, ldx, work)"
.br
.in -1c
.SH "Function/Subroutine Documentation"
.PP 
.SS "subroutine zckcsd (integer nm, integer, dimension( * ) mval, integer, dimension( * ) pval, integer, dimension( * ) qval, integer nmats, integer, dimension( 4 ) iseed, double precision thresh, integer mmax, complex*16, dimension( * ) x, complex*16, dimension( * ) xf, complex*16, dimension( * ) u1, complex*16, dimension( * ) u2, complex*16, dimension( * ) v1t, complex*16, dimension( * ) v2t, double precision, dimension( * ) theta, integer, dimension( * ) iwork, complex*16, dimension( * ) work, double precision, dimension( * ) rwork, integer nin, integer nout, integer info)"

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

.PP
.nf
!>
!> ZCKCSD tests ZUNCSD:
!>        the CSD for an M-by-M unitary matrix X partitioned as
!>        [ X11 X12; X21 X22 ]\&. X11 is P-by-Q\&.
!> 
.fi
.PP
 
.RE
.PP
\fBParameters\fP
.RS 4
\fINM\fP 
.PP
.nf
!>          NM is INTEGER
!>          The number of values of M contained in the vector MVAL\&.
!> 
.fi
.PP
.br
\fIMVAL\fP 
.PP
.nf
!>          MVAL is INTEGER array, dimension (NM)
!>          The values of the matrix row dimension M\&.
!> 
.fi
.PP
.br
\fIPVAL\fP 
.PP
.nf
!>          PVAL is INTEGER array, dimension (NM)
!>          The values of the matrix row dimension P\&.
!> 
.fi
.PP
.br
\fIQVAL\fP 
.PP
.nf
!>          QVAL is INTEGER array, dimension (NM)
!>          The values of the matrix column dimension Q\&.
!> 
.fi
.PP
.br
\fINMATS\fP 
.PP
.nf
!>          NMATS is INTEGER
!>          The number of matrix types to be tested for each combination
!>          of matrix dimensions\&.  If NMATS >= NTYPES (the maximum
!>          number of matrix types), then all the different types are
!>          generated for testing\&.  If NMATS < NTYPES, another input line
!>          is read to get the numbers of the matrix types to be used\&.
!> 
.fi
.PP
.br
\fIISEED\fP 
.PP
.nf
!>          ISEED is INTEGER array, dimension (4)
!>          On entry, the seed of the random number generator\&.  The array
!>          elements should be between 0 and 4095, otherwise they will be
!>          reduced mod 4096, and ISEED(4) must be odd\&.
!>          On exit, the next seed in the random number sequence after
!>          all the test matrices have been generated\&.
!> 
.fi
.PP
.br
\fITHRESH\fP 
.PP
.nf
!>          THRESH is DOUBLE PRECISION
!>          The threshold value for the test ratios\&.  A result is
!>          included in the output file if RESULT >= THRESH\&.  To have
!>          every test ratio printed, use THRESH = 0\&.
!> 
.fi
.PP
.br
\fIMMAX\fP 
.PP
.nf
!>          MMAX is INTEGER
!>          The maximum value permitted for M, used in dimensioning the
!>          work arrays\&.
!> 
.fi
.PP
.br
\fIX\fP 
.PP
.nf
!>          X is COMPLEX*16 array, dimension (MMAX*MMAX)
!> 
.fi
.PP
.br
\fIXF\fP 
.PP
.nf
!>          XF is COMPLEX*16 array, dimension (MMAX*MMAX)
!> 
.fi
.PP
.br
\fIU1\fP 
.PP
.nf
!>          U1 is COMPLEX*16 array, dimension (MMAX*MMAX)
!> 
.fi
.PP
.br
\fIU2\fP 
.PP
.nf
!>          U2 is COMPLEX*16 array, dimension (MMAX*MMAX)
!> 
.fi
.PP
.br
\fIV1T\fP 
.PP
.nf
!>          V1T is COMPLEX*16 array, dimension (MMAX*MMAX)
!> 
.fi
.PP
.br
\fIV2T\fP 
.PP
.nf
!>          V2T is COMPLEX*16 array, dimension (MMAX*MMAX)
!> 
.fi
.PP
.br
\fITHETA\fP 
.PP
.nf
!>          THETA is DOUBLE PRECISION array, dimension (MMAX)
!> 
.fi
.PP
.br
\fIIWORK\fP 
.PP
.nf
!>          IWORK is INTEGER array, dimension (MMAX)
!> 
.fi
.PP
.br
\fIWORK\fP 
.PP
.nf
!>          WORK is COMPLEX*16 array
!> 
.fi
.PP
.br
\fIRWORK\fP 
.PP
.nf
!>          RWORK is DOUBLE PRECISION array
!> 
.fi
.PP
.br
\fININ\fP 
.PP
.nf
!>          NIN is INTEGER
!>          The unit number for input\&.
!> 
.fi
.PP
.br
\fINOUT\fP 
.PP
.nf
!>          NOUT is INTEGER
!>          The unit number for output\&.
!> 
.fi
.PP
.br
\fIINFO\fP 
.PP
.nf
!>          INFO is INTEGER
!>          = 0 :  successful exit
!>          > 0 :  If ZLAROR returns an error code, the absolute value
!>                 of it is returned\&.
!> 
.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 \fB181\fP of file \fBzckcsd\&.f\fP\&.
.SS "subroutine zlacsg (integer m, integer p, integer q, double precision, dimension( * ) theta, integer, dimension( 4 ) iseed, complex*16, dimension( ldx, * ) x, integer ldx, complex*16, dimension( * ) work)"

.PP
Definition at line \fB352\fP of file \fBzckcsd\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.