171 SUBROUTINE zsysv( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
181 INTEGER INFO, LDA, LDB, LWORK, N, NRHS
185 COMPLEX*16 A( lda, * ), B( ldb, * ), WORK( * )
209 lquery = ( lwork.EQ.-1 )
210 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
212 ELSE IF( n.LT.0 )
THEN
214 ELSE IF( nrhs.LT.0 )
THEN
216 ELSE IF( lda.LT.max( 1, n ) )
THEN
218 ELSE IF( ldb.LT.max( 1, n ) )
THEN
220 ELSE IF( lwork.LT.1 .AND. .NOT.lquery )
THEN
228 CALL zsytrf( uplo, n, a, lda, ipiv, work, -1, info )
235 CALL xerbla(
'ZSYSV ', -info )
237 ELSE IF( lquery )
THEN
243 CALL zsytrf( uplo, n, a, lda, ipiv, work, lwork, info )
248 IF ( lwork.LT.n )
THEN
252 CALL zsytrs( uplo, n, nrhs, a, lda, ipiv, b, ldb, info )
258 CALL zsytrs2( uplo,n,nrhs,a,lda,ipiv,b,ldb,work,info )
subroutine zsysv(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
ZSYSV computes the solution to system of linear equations A * X = B for SY matrices ...
subroutine zsytrf(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
ZSYTRF
subroutine zsytrs2(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, INFO)
ZSYTRS2
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zsytrs(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
ZSYTRS