224 SUBROUTINE zsysv_rk( UPLO, N, NRHS, A, LDA, E, IPIV, B, LDB,
234 INTEGER INFO, LDA, LDB, LWORK, N, NRHS
238 COMPLEX*16 A( LDA, * ), B( LDB, * ), E( * ), WORK( * )
262 lquery = ( lwork.EQ.-1 )
263 IF( .NOT.lsame( uplo,
'U' ) .AND.
264 $ .NOT.lsame( uplo,
'L' ) )
THEN
266 ELSE IF( n.LT.0 )
THEN
268 ELSE IF( nrhs.LT.0 )
THEN
270 ELSE IF( lda.LT.max( 1, n ) )
THEN
272 ELSE IF( ldb.LT.max( 1, n ) )
THEN
274 ELSE IF( lwork.LT.1 .AND. .NOT.lquery )
THEN
282 CALL zsytrf_rk( uplo, n, a, lda, e, ipiv, work, -1,
284 lwkopt = int( dble( work( 1 ) ) )
290 CALL xerbla(
'ZSYSV_RK ', -info )
292 ELSE IF( lquery )
THEN
299 CALL zsytrf_rk( uplo, n, a, lda, e, ipiv, work, lwork, info )
305 CALL zsytrs_3( uplo, n, nrhs, a, lda, e, ipiv, b, ldb,
subroutine zsysv_rk(uplo, n, nrhs, a, lda, e, ipiv, b, ldb, work, lwork, info)
ZSYSV_RK computes the solution to system of linear equations A * X = B for SY matrices
subroutine zsytrf_rk(uplo, n, a, lda, e, ipiv, work, lwork, info)
ZSYTRF_RK computes the factorization of a complex symmetric indefinite matrix using the bounded Bunch...
subroutine zsytrs_3(uplo, n, nrhs, a, lda, e, ipiv, b, ldb, info)
ZSYTRS_3