141 SUBROUTINE dppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
149 INTEGER INFO, LDB, N, NRHS
152 DOUBLE PRECISION AP( * ), B( LDB, * )
172 IF( .NOT.lsame( uplo,
'U' ) .AND.
173 $ .NOT.lsame( uplo,
'L' ) )
THEN
175 ELSE IF( n.LT.0 )
THEN
177 ELSE IF( nrhs.LT.0 )
THEN
179 ELSE IF( ldb.LT.max( 1, n ) )
THEN
183 CALL xerbla(
'DPPSV ', -info )
189 CALL dpptrf( uplo, n, ap, info )
194 CALL dpptrs( uplo, n, nrhs, ap, b, ldb, info )
141 SUBROUTINE dppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
…
subroutine xerbla(srname, info)
subroutine dppsv(uplo, n, nrhs, ap, b, ldb, info)
DPPSV computes the solution to system of linear equations A * X = B for OTHER matrices
subroutine dpptrf(uplo, n, ap, info)
DPPTRF
subroutine dpptrs(uplo, n, nrhs, ap, b, ldb, info)
DPPTRS