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)
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
subroutine spotrf(uplo, n, a, lda, info)
SPOTRF
subroutine spotrs(uplo, n, nrhs, a, lda, b, ldb, info)
SPOTRS