.TH "TESTING/EIG/sget31.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/EIG/sget31.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBsget31\fP (rmax, lmax, ninfo, knt)" .br .RI "\fBSGET31\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine sget31 (real rmax, integer lmax, integer, dimension( 2 ) ninfo, integer knt)" .PP \fBSGET31\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> SGET31 tests SLALN2, a routine for solving !> !> (ca A - w D)X = sB !> !> where A is an NA by NA matrix (NA=1 or 2 only), w is a real (NW=1) or !> complex (NW=2) constant, ca is a real constant, D is an NA by NA real !> diagonal matrix, and B is an NA by NW matrix (when NW=2 the second !> column of B contains the imaginary part of the solution)\&. The code !> returns X and s, where s is a scale factor, less than or equal to 1, !> which is chosen to avoid overflow in X\&. !> !> If any singular values of ca A-w D are less than another input !> parameter SMIN, they are perturbed up to SMIN\&. !> !> The test condition is that the scaled residual !> !> norm( (ca A-w D)*X - s*B ) / !> ( max( ulp*norm(ca A-w D), SMIN )*norm(X) ) !> !> should be on the order of 1\&. Here, ulp is the machine precision\&. !> Also, it is verified that SCALE is less than or equal to 1, and that !> XNORM = infinity-norm(X)\&. !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIRMAX\fP .PP .nf !> RMAX is REAL !> 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) = number of examples with INFO less than 0 !> NINFO(2) = number of examples with INFO greater than 0 !> .fi .PP .br \fIKNT\fP .PP .nf !> KNT is INTEGER !> Total number of examples tested\&. !> .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 \fB90\fP of file \fBsget31\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.