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

.in +1c
.ti -1c
.RI "subroutine \fBssvdch\fP (n, s, e, svd, tol, info)"
.br
.RI "\fBSSVDCH\fP "
.in -1c
.SH "Function/Subroutine Documentation"
.PP 
.SS "subroutine ssvdch (integer n, real, dimension( * ) s, real, dimension( * ) e, real, dimension( * ) svd, real tol, integer info)"

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

.PP
.nf
!>
!> SSVDCH checks to see if SVD(1) ,\&.\&.\&., SVD(N) are accurate singular
!> values of the bidiagonal matrix B with diagonal entries
!> S(1) ,\&.\&.\&., S(N) and superdiagonal entries E(1) ,\&.\&.\&., E(N-1))\&.
!> It does this by expanding each SVD(I) into an interval
!> [SVD(I) * (1-EPS) , SVD(I) * (1+EPS)], merging overlapping intervals
!> if any, and using Sturm sequences to count and verify whether each
!> resulting interval has the correct number of singular values (using
!> SSVDCT)\&. Here EPS=TOL*MAX(N/10,1)*MACHEP, where MACHEP is the
!> machine precision\&. The routine assumes the singular values are sorted
!> with SVD(1) the largest and SVD(N) smallest\&.  If each interval
!> contains the correct number of singular values, INFO = 0 is returned,
!> otherwise INFO is the index of the first singular value in the first
!> bad interval\&.
!> 
.fi
.PP
 
.RE
.PP
\fBParameters\fP
.RS 4
\fIN\fP 
.PP
.nf
!>          N is INTEGER
!>          The dimension of the bidiagonal matrix B\&.
!> 
.fi
.PP
.br
\fIS\fP 
.PP
.nf
!>          S is REAL array, dimension (N)
!>          The diagonal entries of the bidiagonal matrix B\&.
!> 
.fi
.PP
.br
\fIE\fP 
.PP
.nf
!>          E is REAL array, dimension (N-1)
!>          The superdiagonal entries of the bidiagonal matrix B\&.
!> 
.fi
.PP
.br
\fISVD\fP 
.PP
.nf
!>          SVD is REAL array, dimension (N)
!>          The computed singular values to be checked\&.
!> 
.fi
.PP
.br
\fITOL\fP 
.PP
.nf
!>          TOL is REAL
!>          Error tolerance for checking, a multiplier of the
!>          machine precision\&.
!> 
.fi
.PP
.br
\fIINFO\fP 
.PP
.nf
!>          INFO is INTEGER
!>          =0 if the singular values are all correct (to within
!>             1 +- TOL*MACHEPS)
!>          >0 if the interval containing the INFO-th singular value
!>             contains the incorrect number of singular values\&.
!> 
.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 \fB96\fP of file \fBssvdch\&.f\fP\&.
.SH "Author"
.PP 
Generated automatically by Doxygen for LAPACK from the source code\&.