.TH "TESTING/LIN/zlavsy_rook.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME TESTING/LIN/zlavsy_rook.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBzlavsy_rook\fP (uplo, trans, diag, n, nrhs, a, lda, ipiv, b, ldb, info)" .br .RI "\fBZLAVSY_ROOK\fP " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine zlavsy_rook (character uplo, character trans, character diag, integer n, integer nrhs, complex*16, dimension( lda, * ) a, integer lda, integer, dimension( * ) ipiv, complex*16, dimension( ldb, * ) b, integer ldb, integer info)" .PP \fBZLAVSY_ROOK\fP .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> ZLAVSY_ROOK performs one of the matrix-vector operations !> x := A*x or x := A'*x, !> where x is an N element vector and A is one of the factors !> from the block U*D*U' or L*D*L' factorization computed by ZSYTRF_ROOK\&. !> !> If TRANS = 'N', multiplies by U or U * D (or L or L * D) !> If TRANS = 'T', multiplies by U' or D * U' (or L' or D * L') !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIUPLO\fP .PP .nf !> UPLO is CHARACTER*1 !> Specifies whether the factor stored in A is upper or lower !> triangular\&. !> = 'U': Upper triangular !> = 'L': Lower triangular !> .fi .PP .br \fITRANS\fP .PP .nf !> TRANS is CHARACTER*1 !> Specifies the operation to be performed: !> = 'N': x := A*x !> = 'T': x := A'*x !> .fi .PP .br \fIDIAG\fP .PP .nf !> DIAG is CHARACTER*1 !> Specifies whether or not the diagonal blocks are unit !> matrices\&. If the diagonal blocks are assumed to be unit, !> then A = U or A = L, otherwise A = U*D or A = L*D\&. !> = 'U': Diagonal blocks are assumed to be unit matrices\&. !> = 'N': Diagonal blocks are assumed to be non-unit matrices\&. !> .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 \fINRHS\fP .PP .nf !> NRHS is INTEGER !> The number of right hand sides, i\&.e\&., the number of vectors !> x to be multiplied by A\&. NRHS >= 0\&. !> .fi .PP .br \fIA\fP .PP .nf !> A is COMPLEX*16 array, dimension (LDA,N) !> The block diagonal matrix D and the multipliers used to !> obtain the factor U or L as computed by ZSYTRF_ROOK\&. !> Stored as a 2-D triangular matrix\&. !> .fi .PP .br \fILDA\fP .PP .nf !> LDA is INTEGER !> The leading dimension of the array A\&. LDA >= max(1,N)\&. !> .fi .PP .br \fIIPIV\fP .PP .nf !> IPIV is INTEGER array, dimension (N) !> Details of the interchanges and the block structure of D, !> as determined by ZSYTRF_ROOK\&. !> !> If UPLO = 'U': !> If IPIV(k) > 0, then rows and columns k and IPIV(k) !> were interchanged and D(k,k) is a 1-by-1 diagonal block\&. !> (If IPIV( k ) = k, no interchange was done)\&. !> !> If IPIV(k) < 0 and IPIV(k-1) < 0, then rows and !> columns k and -IPIV(k) were interchanged and rows and !> columns k-1 and -IPIV(k-1) were inerchaged, !> D(k-1:k,k-1:k) is a 2-by-2 diagonal block\&. !> !> If UPLO = 'L': !> If IPIV(k) > 0, then rows and columns k and IPIV(k) !> were interchanged and D(k,k) is a 1-by-1 diagonal block\&. !> (If IPIV( k ) = k, no interchange was done)\&. !> !> If IPIV(k) < 0 and IPIV(k+1) < 0, then rows and !> columns k and -IPIV(k) were interchanged and rows and !> columns k+1 and -IPIV(k+1) were inerchaged, !> D(k:k+1,k:k+1) is a 2-by-2 diagonal block\&. !> .fi .PP .br \fIB\fP .PP .nf !> B is COMPLEX*16 array, dimension (LDB,NRHS) !> On entry, B contains NRHS vectors of length N\&. !> On exit, B is overwritten with the product A * B\&. !> .fi .PP .br \fILDB\fP .PP .nf !> LDB is INTEGER !> The leading dimension of the array B\&. LDB >= max(1,N)\&. !> .fi .PP .br \fIINFO\fP .PP .nf !> INFO is INTEGER !> = 0: successful exit !> < 0: if INFO = -k, the k-th argument had an illegal value !> .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 \fB153\fP of file \fBzlavsy_rook\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.