.TH "TESTING/EIG/dget31.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/EIG/dget31.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBdget31\fP (rmax, lmax, ninfo, knt)" .br .RI "\fBDGET31\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine dget31 (double precision rmax, integer lmax, integer, dimension( 2 ) ninfo, integer knt)" .PP \fBDGET31\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> DGET31 tests DLALN2, 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 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 (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 \fBdget31\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.