164 SUBROUTINE chesv_aa( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
174 INTEGER INFO, LDA, LDB, LWORK, N, NRHS
178 COMPLEX A( lda, * ), B( ldb, * ), WORK( * )
185 INTEGER LWKOPT, LWKOPT_HETRF, LWKOPT_HETRS
190 EXTERNAL lsame, ilaenv
203 lquery = ( lwork.EQ.-1 )
204 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
206 ELSE IF( n.LT.0 )
THEN
208 ELSE IF( nrhs.LT.0 )
THEN
210 ELSE IF( lda.LT.max( 1, n ) )
THEN
212 ELSE IF( ldb.LT.max( 1, n ) )
THEN
217 CALL chetrf_aa( uplo, n, a, lda, ipiv, work, -1, info )
218 lwkopt_hetrf = int( work(1) )
219 CALL chetrs_aa( uplo, n, nrhs, a, lda, ipiv, b, ldb, work,
221 lwkopt_hetrs = int( work(1) )
222 lwkopt = max( lwkopt_hetrf, lwkopt_hetrs )
224 IF( lwork.LT.lwkopt .AND. .NOT.lquery )
THEN
230 CALL xerbla(
'CHESV_AA ', -info )
232 ELSE IF( lquery )
THEN
238 CALL chetrf_aa( uplo, n, a, lda, ipiv, work, lwork, info )
243 CALL chetrs_aa( uplo, n, nrhs, a, lda, ipiv, b, ldb, work,
subroutine chetrs_aa(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
CHETRS_AA
subroutine chetrs2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
CHETRS2
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine chetrs(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
CHETRS
subroutine chetrf_aa(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
CHETRF_AA
subroutine chesv_aa(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
CHESV_AA computes the solution to system of linear equations A * X = B for HE matrices ...
subroutine chetrf(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
CHETRF