.TH "TESTING/LIN/cptt02.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/LIN/cptt02.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBcptt02\fP (uplo, n, nrhs, d, e, x, ldx, b, ldb, resid)" .br .RI "\fBCPTT02\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine cptt02 (character uplo, integer n, integer nrhs, real, dimension( * ) d, complex, dimension( * ) e, complex, dimension( ldx, * ) x, integer ldx, complex, dimension( ldb, * ) b, integer ldb, real resid)" .PP \fBCPTT02\fP .PP \fBPurpose:\fP .RS 4 .PP .nf CPTT02 computes the residual for the solution to a symmetric tridiagonal system of equations: RESID = norm(B - A*X) / (norm(A) * norm(X) * EPS), where EPS is the machine epsilon\&. .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIUPLO\fP .PP .nf UPLO is CHARACTER*1 Specifies whether the superdiagonal or the subdiagonal of the tridiagonal matrix A is stored\&. = 'U': E is the superdiagonal of A = 'L': E is the subdiagonal of A .fi .PP .br \fIN\fP .PP .nf N is INTEGER The order of the matrix A\&. .fi .PP .br \fINRHS\fP .PP .nf NRHS is INTEGER The number of right hand sides, i\&.e\&., the number of columns of the matrices B and X\&. NRHS >= 0\&. .fi .PP .br \fID\fP .PP .nf D is REAL array, dimension (N) The n diagonal elements of the tridiagonal matrix A\&. .fi .PP .br \fIE\fP .PP .nf E is COMPLEX array, dimension (N-1) The (n-1) subdiagonal elements of the tridiagonal matrix A\&. .fi .PP .br \fIX\fP .PP .nf X is COMPLEX array, dimension (LDX,NRHS) The n by nrhs matrix of solution vectors X\&. .fi .PP .br \fILDX\fP .PP .nf LDX is INTEGER The leading dimension of the array X\&. LDX >= max(1,N)\&. .fi .PP .br \fIB\fP .PP .nf B is COMPLEX array, dimension (LDB,NRHS) On entry, the n by nrhs matrix of right hand side vectors B\&. On exit, B is overwritten with the difference B - A*X\&. .fi .PP .br \fILDB\fP .PP .nf LDB is INTEGER The leading dimension of the array B\&. LDB >= max(1,N)\&. .fi .PP .br \fIRESID\fP .PP .nf RESID is REAL norm(B - A*X) / (norm(A) * norm(X) * EPS) .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 \fB114\fP of file \fBcptt02\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.