163 SUBROUTINE zspsv( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO )
172 INTEGER INFO, LDB, N, NRHS
176 COMPLEX*16 AP( * ), B( ldb, * )
196 IF( .NOT.lsame( uplo,
'U' ) .AND. .NOT.lsame( uplo,
'L' ) )
THEN
198 ELSE IF( n.LT.0 )
THEN
200 ELSE IF( nrhs.LT.0 )
THEN
202 ELSE IF( ldb.LT.max( 1, n ) )
THEN
206 CALL xerbla(
'ZSPSV ', -info )
212 CALL zsptrf( uplo, n, ap, ipiv, info )
217 CALL zsptrs( uplo, n, nrhs, ap, ipiv, b, ldb, info )
subroutine zsptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
ZSPTRS
subroutine zsptrf(UPLO, N, AP, IPIV, INFO)
ZSPTRF
subroutine zspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
ZSPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
subroutine xerbla(SRNAME, INFO)
XERBLA