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