129 SUBROUTINE sposv( UPLO, N, NRHS, A, LDA, B, LDB, INFO )
137 INTEGER INFO, LDA, LDB, N, NRHS
140 REAL A( LDA, * ), B( LDB, * )
160 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
162 ELSE IF( n.LT.0 )
THEN
164 ELSE IF( nrhs.LT.0 )
THEN
166 ELSE IF( lda.LT.max( 1, n ) )
THEN
168 ELSE IF( ldb.LT.max( 1, n ) )
THEN
172 CALL xerbla(
'SPOSV ', -info )
178 CALL spotrf( uplo, n, a, lda, info )
183 CALL spotrs( uplo, n, nrhs, a, lda, b, ldb, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine spotrf(UPLO, N, A, LDA, INFO)
SPOTRF
subroutine spotrs(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
SPOTRS
subroutine sposv(UPLO, N, NRHS, A, LDA, B, LDB, INFO)
SPOSV computes the solution to system of linear equations A * X = B for PO matrices