116 SUBROUTINE cptsv( N, NRHS, D, E, B, LDB, INFO )
124 INTEGER INFO, LDB, N, NRHS
128 COMPLEX B( ldb, * ), E( * )
146 ELSE IF( nrhs.LT.0 )
THEN
148 ELSE IF( ldb.LT.max( 1, n ) )
THEN
152 CALL
xerbla(
'CPTSV ', -info )
158 CALL
cpttrf( n, d, e, info )
163 CALL
cpttrs(
'Lower', n, nrhs, d, e, b, ldb, info )
subroutine cpttrs(UPLO, N, NRHS, D, E, B, LDB, INFO)
CPTTRS
subroutine cptsv(N, NRHS, D, E, B, LDB, INFO)
CPTSV computes the solution to system of linear equations A * X = B for PT matrices ...
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cpttrf(N, D, E, INFO)
CPTTRF