145 SUBROUTINE dppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
154 INTEGER INFO, LDB, N, NRHS
157 DOUBLE PRECISION 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(
'DPPSV ', -info )
193 CALL dpptrf( uplo, n, ap, info )
198 CALL dpptrs( uplo, n, nrhs, ap, b, ldb, info )
subroutine dpptrf(UPLO, N, AP, INFO)
DPPTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dpptrs(UPLO, N, NRHS, AP, B, LDB, INFO)
DPPTRS
subroutine dppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
DPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...