96 SUBROUTINE cpotri( UPLO, N, A, LDA, INFO )
128 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
130 ELSE IF( n.LT.0 )
THEN
132 ELSE IF( lda.LT.max( 1, n ) )
THEN
136 CALL xerbla(
'CPOTRI', -info )
147 CALL ctrtri( uplo,
'Non-unit', n, a, lda, info )
153 CALL clauum( uplo, n, a, lda, info )
subroutine cpotri(UPLO, N, A, LDA, INFO)
CPOTRI
subroutine clauum(UPLO, N, A, LDA, INFO)
CLAUUM computes the product UUH or LHL, where U and L are upper or lower triangular matrices (blocked...
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine ctrtri(UPLO, DIAG, N, A, LDA, INFO)
CTRTRI