143 SUBROUTINE dppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
151 INTEGER INFO, LDB, N, NRHS
154 DOUBLE PRECISION AP( * ), B( LDB, * )
174 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
176 ELSE IF( n.LT.0 )
THEN
178 ELSE IF( nrhs.LT.0 )
THEN
180 ELSE IF( ldb.LT.max( 1, n ) )
THEN
184 CALL xerbla(
'DPPSV ', -info )
190 CALL dpptrf( uplo, n, ap, info )
195 CALL dpptrs( uplo, n, nrhs, ap, b, ldb, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine dpptrf(UPLO, N, AP, INFO)
DPPTRF
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