163 SUBROUTINE cspsv( UPLO, N, NRHS, AP, IPIV, B, LDB, INFO )
172 INTEGER info, ldb, n, nrhs
176 COMPLEX 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(
'CSPSV ', -info )
212 CALL
csptrf( uplo, n, ap, ipiv, info )
217 CALL
csptrs( uplo, n, nrhs, ap, ipiv,
b, ldb, info )
LOGICAL function lsame(CA, CB)
LSAME
subroutine csptrf(UPLO, N, AP, IPIV, INFO)
CSPTRF
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine cspsv(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CSPSV computes the solution to system of linear equations A * X = B for OTHER matrices ...
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real b(3) integer i
subroutine csptrs(UPLO, N, NRHS, AP, IPIV, B, LDB, INFO)
CSPTRS