204 SUBROUTINE csysv_rook( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
214 INTEGER INFO, LDA, LDB, LWORK, N, NRHS
218 COMPLEX A( lda, * ), B( ldb, * ), WORK( * )
242 lquery = ( lwork.EQ.-1 )
243 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
245 ELSE IF( n.LT.0 )
THEN
247 ELSE IF( nrhs.LT.0 )
THEN
249 ELSE IF( lda.LT.max( 1, n ) )
THEN
251 ELSE IF( ldb.LT.max( 1, n ) )
THEN
253 ELSE IF( lwork.LT.1 .AND. .NOT.lquery )
THEN
261 CALL csytrf_rook( uplo, n, a, lda, ipiv, work, -1, info )
268 CALL xerbla(
'CSYSV_ROOK ', -info )
270 ELSE IF( lquery )
THEN
276 CALL csytrf_rook( uplo, n, a, lda, ipiv, work, lwork, info )
283 CALL csytrs_rook( uplo, n, nrhs, a, lda, ipiv, b, ldb, info )
subroutine csysv_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
CSYSV_ROOK computes the solution to system of linear equations A * X = B for SY matrices ...
subroutine csytrs_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
CSYTRS_ROOK
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine csytrf_rook(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
CSYTRF_ROOK