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 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 ...
subroutine zpptrf(UPLO, N, AP, INFO)
ZPPTRF