145 SUBROUTINE zppsv( UPLO, N, NRHS, AP, B, LDB, INFO )
154 INTEGER INFO, LDB, N, NRHS
157 COMPLEX*16 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(
'ZPPSV ', -info )
193 CALL zpptrf( uplo, n, ap, info )
198 CALL zpptrs( uplo, n, nrhs, ap, b, ldb, info )
subroutine zpptrs(UPLO, N, NRHS, AP, B, LDB, INFO)
ZPPTRS
subroutine zpptrf(UPLO, N, AP, INFO)
ZPPTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine zppsv(UPLO, N, NRHS, AP, B, LDB, INFO)
ZPPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...