204 SUBROUTINE ssysv_rook( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK,
214 INTEGER info, lda, ldb, lwork, n, nrhs
218 REAL 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
ssytrf_rook( uplo, n, a, lda, ipiv, work, -1, info )
268 CALL
xerbla(
'SSYSV_ROOK ', -info )
270 ELSE IF( lquery )
THEN
276 CALL
ssytrf_rook( uplo, n, a, lda, ipiv, work, lwork, info )
283 CALL
ssytrs_rook( uplo, n, nrhs, a, lda, ipiv,
b, ldb, info )
subroutine ssytrf_rook(UPLO, N, A, LDA, IPIV, WORK, LWORK, INFO)
SSYTRF_ROOK
subroutine ssytrs_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, INFO)
SSYTRS_ROOK
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
logical function lsame(CA, CB)
LSAME
subroutine ssysv_rook(UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, LWORK, INFO)
SSYSV_ROOK computes the solution to system of linear equations A * X = B for SY matrices ...