170 SUBROUTINE chetri_3( UPLO, N, A, LDA, E, IPIV, WORK, LWORK,
180 INTEGER INFO, LDA, LWORK, N
184 COMPLEX A( lda, * ), E( * ), WORK( * )
190 LOGICAL UPPER, LQUERY
196 EXTERNAL lsame, ilaenv
209 upper = lsame( uplo,
'U' )
210 lquery = ( lwork.EQ.-1 )
214 nb = max( 1, ilaenv( 1,
'CHETRI_3', uplo, n, -1, -1, -1 ) )
215 lwkopt = ( n+nb+1 ) * ( nb+3 )
217 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
219 ELSE IF( n.LT.0 )
THEN
221 ELSE IF( lda.LT.max( 1, n ) )
THEN
223 ELSE IF ( lwork .LT. lwkopt .AND. .NOT.lquery )
THEN
228 CALL xerbla(
'CHETRI_3', -info )
230 ELSE IF( lquery )
THEN
240 CALL chetri_3x( uplo, n, a, lda, e, ipiv, work, nb, info )
subroutine chetri_3(UPLO, N, A, LDA, E, IPIV, WORK, LWORK, INFO)
CHETRI_3
subroutine chetri_3x(UPLO, N, A, LDA, E, IPIV, WORK, NB, INFO)
CHETRI_3X
subroutine xerbla(SRNAME, INFO)
XERBLA