.TH "TESTING/LIN/cpbt01.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/LIN/cpbt01.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBcpbt01\fP (uplo, n, kd, a, lda, afac, ldafac, rwork, resid)" .br .RI "\fBCPBT01\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine cpbt01 (character uplo, integer n, integer kd, complex, dimension( lda, * ) a, integer lda, complex, dimension( ldafac, * ) afac, integer ldafac, real, dimension( * ) rwork, real resid)" .PP \fBCPBT01\fP .PP \fBPurpose:\fP .RS 4 .PP .nf CPBT01 reconstructs a Hermitian positive definite band matrix A from its L*L' or U'*U factorization and computes the residual norm( L*L' - A ) / ( N * norm(A) * EPS ) or norm( U'*U - A ) / ( N * norm(A) * EPS ), where EPS is the machine epsilon, L' is the conjugate transpose of L, and U' is the conjugate transpose of U\&. .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIUPLO\fP .PP .nf UPLO is CHARACTER*1 Specifies whether the upper or lower triangular part of the Hermitian matrix A is stored: = 'U': Upper triangular = 'L': Lower triangular .fi .PP .br \fIN\fP .PP .nf N is INTEGER The number of rows and columns of the matrix A\&. N >= 0\&. .fi .PP .br \fIKD\fP .PP .nf KD is INTEGER The number of super-diagonals of the matrix A if UPLO = 'U', or the number of sub-diagonals if UPLO = 'L'\&. KD >= 0\&. .fi .PP .br \fIA\fP .PP .nf A is COMPLEX array, dimension (LDA,N) The original Hermitian band matrix A\&. If UPLO = 'U', the upper triangular part of A is stored as a band matrix; if UPLO = 'L', the lower triangular part of A is stored\&. The columns of the appropriate triangle are stored in the columns of A and the diagonals of the triangle are stored in the rows of A\&. See CPBTRF for further details\&. .fi .PP .br \fILDA\fP .PP .nf LDA is INTEGER\&. The leading dimension of the array A\&. LDA >= max(1,KD+1)\&. .fi .PP .br \fIAFAC\fP .PP .nf AFAC is COMPLEX array, dimension (LDAFAC,N) The factored form of the matrix A\&. AFAC contains the factor L or U from the L*L' or U'*U factorization in band storage format, as computed by CPBTRF\&. .fi .PP .br \fILDAFAC\fP .PP .nf LDAFAC is INTEGER The leading dimension of the array AFAC\&. LDAFAC >= max(1,KD+1)\&. .fi .PP .br \fIRWORK\fP .PP .nf RWORK is REAL array, dimension (N) .fi .PP .br \fIRESID\fP .PP .nf RESID is REAL If UPLO = 'L', norm(L*L' - A) / ( N * norm(A) * EPS ) If UPLO = 'U', norm(U'*U - A) / ( N * norm(A) * 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 \fB118\fP of file \fBcpbt01\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.