167 SUBROUTINE zhesv( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
176 INTEGER INFO, LDA, LDB, LWORK, N, NRHS
180 COMPLEX*16 A( LDA, * ), B( LDB, * ), WORK( * )
192 EXTERNAL lsame, ilaenv
205 lquery = ( lwork.EQ.-1 )
206 IF( .NOT.lsame( uplo,
'U' ) .AND.
207 $ .NOT.lsame( uplo,
'L' ) )
THEN
209 ELSE IF( n.LT.0 )
THEN
211 ELSE IF( nrhs.LT.0 )
THEN
213 ELSE IF( lda.LT.max( 1, n ) )
THEN
215 ELSE IF( ldb.LT.max( 1, n ) )
THEN
217 ELSE IF( lwork.LT.1 .AND. .NOT.lquery )
THEN
225 nb = ilaenv( 1,
'ZHETRF', uplo, n, -1, -1, -1 )
232 CALL xerbla(
'ZHESV ', -info )
234 ELSE IF( lquery )
THEN
240 CALL zhetrf( uplo, n, a, lda, ipiv, work, lwork, info )
245 IF ( lwork.LT.n )
THEN
249 CALL zhetrs( uplo, n, nrhs, a, lda, ipiv, b, ldb, info )
255 CALL zhetrs2( uplo,n,nrhs,a,lda,ipiv,b,ldb,work,info )
subroutine zhesv(uplo, n, nrhs, a, lda, ipiv, b, ldb, work, lwork, info)
ZHESV computes the solution to system of linear equations A * X = B for HE matrices
subroutine zhetrf(uplo, n, a, lda, ipiv, work, lwork, info)
ZHETRF
subroutine zhetrs2(uplo, n, nrhs, a, lda, ipiv, b, ldb, work, info)
ZHETRS2
subroutine zhetrs(uplo, n, nrhs, a, lda, ipiv, b, ldb, info)
ZHETRS