171 SUBROUTINE chesv( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
181 INTEGER INFO, LDA, LDB, LWORK, N, NRHS
185 COMPLEX A( lda, * ), B( ldb, * ), WORK( * )
197 EXTERNAL lsame, ilaenv
210 lquery = ( lwork.EQ.-1 )
211 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
213 ELSE IF( n.LT.0 )
THEN
215 ELSE IF( nrhs.LT.0 )
THEN
217 ELSE IF( lda.LT.max( 1, n ) )
THEN
219 ELSE IF( ldb.LT.max( 1, n ) )
THEN
221 ELSE IF( lwork.LT.1 .AND. .NOT.lquery )
THEN
229 nb = ilaenv( 1,
'CHETRF', uplo, n, -1, -1, -1 )
236 CALL xerbla(
'CHESV ', -info )
238 ELSE IF( lquery )
THEN
244 CALL chetrf( uplo, n, a, lda, ipiv, work, lwork, info )
249 IF ( lwork.LT.n )
THEN
253 CALL chetrs( uplo, n, nrhs, a, lda, ipiv, b, ldb, info )
259 CALL chetrs2( uplo,n,nrhs,a,lda,ipiv,b,ldb,work,info )
subroutine chetrs2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
CHETRS2
subroutine chesv(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
CHESV computes the solution to system of linear equations A * X = B for HE matrices ...
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine chetrs(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
CHETRS
subroutine chetrf(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
CHETRF