116 SUBROUTINE zptsv( N, NRHS, D, E, B, LDB, INFO )
124 INTEGER info, ldb, n, nrhs
127 DOUBLE PRECISION d( * )
128 COMPLEX*16 b( ldb, * ), e( * )
146 ELSE IF( nrhs.LT.0 )
THEN
148 ELSE IF( ldb.LT.max( 1, n ) )
THEN
152 CALL
xerbla(
'ZPTSV ', -info )
158 CALL
zpttrf( n, d, e, info )
163 CALL
zpttrs(
'Lower', n, nrhs, d, e,
b, ldb, info )
subroutine zpttrf(N, D, E, INFO)
ZPTTRF
subroutine zpttrs(UPLO, N, NRHS, D, E, B, LDB, INFO)
ZPTTRS
subroutine xerbla(SRNAME, INFO)
XERBLA
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine zptsv(N, NRHS, D, E, B, LDB, INFO)
ZPTSV computes the solution to system of linear equations A * X = B for PT matrices ...