184 $ IPIV, IPIV2, B, LDB, WORK, LWORK,
195 INTEGER N, NRHS, LDA, LDB, LTB, LWORK, INFO
198 INTEGER IPIV( * ), IPIV2( * )
199 COMPLEX A( LDA, * ), B( LDB, * ), TB( * ), WORK( * )
205 LOGICAL UPPER, TQUERY, WQUERY
211 EXTERNAL lsame, sroundup_lwork
225 upper = lsame( uplo,
'U' )
226 wquery = ( lwork.EQ.-1 )
227 tquery = ( ltb.EQ.-1 )
228 IF( .NOT.upper .AND. .NOT.lsame( uplo,
'L' ) )
THEN
230 ELSE IF( n.LT.0 )
THEN
232 ELSE IF( nrhs.LT.0 )
THEN
234 ELSE IF( lda.LT.max( 1, n ) )
THEN
236 ELSE IF( ltb.LT.( 4*n ) .AND. .NOT.tquery )
THEN
238 ELSE IF( ldb.LT.max( 1, n ) )
THEN
240 ELSE IF( lwork.LT.n .AND. .NOT.wquery )
THEN
246 $ ipiv2, work, -1, info )
247 lwkopt = int( work(1) )
251 CALL xerbla(
'CSYSV_AA_2STAGE', -info )
253 ELSE IF( wquery .OR. tquery )
THEN
261 $ work, lwork, info )
267 $ ipiv2, b, ldb, info )
271 work( 1 ) = sroundup_lwork(lwkopt)
subroutine xerbla(srname, info)
subroutine csysv_aa_2stage(uplo, n, nrhs, a, lda, tb, ltb, ipiv, ipiv2, b, ldb, work, lwork, info)
CSYSV_AA_2STAGE computes the solution to system of linear equations A * X = B for SY matrices
subroutine csytrf_aa_2stage(uplo, n, a, lda, tb, ltb, ipiv, ipiv2, work, lwork, info)
CSYTRF_AA_2STAGE
subroutine csytrs_aa_2stage(uplo, n, nrhs, a, lda, tb, ltb, ipiv, ipiv2, b, ldb, info)
CSYTRS_AA_2STAGE