145 SUBROUTINE sppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
154 INTEGER INFO, LDB, N, NRHS
157 REAL AP( * ), B( ldb, * )
177 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
179 ELSE IF( n.LT.0 )
THEN
181 ELSE IF( nrhs.LT.0 )
THEN
183 ELSE IF( ldb.LT.max( 1, n ) )
THEN
187 CALL xerbla(
'SPPSV ', -info )
193 CALL spptrf( uplo, n, ap, info )
198 CALL spptrs( uplo, n, nrhs, ap, b, ldb, info )
subroutine spptrs(UPLO, N, NRHS, AP, B, LDB, INFO)
SPPTRS
subroutine spptrf(UPLO, N, AP, INFO)
SPPTRF
subroutine sppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
SPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine xerbla(SRNAME, INFO)
XERBLA