114 SUBROUTINE cptsv( N, NRHS, D, E, B, LDB, INFO )
121 INTEGER INFO, LDB, N, NRHS
125 COMPLEX B( LDB, * ), E( * )
143 ELSE IF( nrhs.LT.0 )
THEN
145 ELSE IF( ldb.LT.max( 1, n ) )
THEN
149 CALL xerbla(
'CPTSV ', -info )
155 CALL cpttrf( n, d, e, info )
160 CALL cpttrs(
'Lower', n, nrhs, d, e, b, ldb, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cpttrs(UPLO, N, NRHS, D, E, B, LDB, INFO)
CPTTRS
subroutine cpttrf(N, D, E, INFO)
CPTTRF
subroutine cptsv(N, NRHS, D, E, B, LDB, INFO)
CPTSV computes the solution to system of linear equations A * X = B for PT matrices