138 SUBROUTINE zgttrs( TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB,
148 INTEGER INFO, LDB, N, NRHS
152 COMPLEX*16 B( ldb, * ), D( * ), DL( * ), DU( * ), DU2( * )
159 INTEGER ITRANS, J, JB, NB
174 notran = ( trans.EQ.
'N' .OR. trans.EQ.
'n' )
175 IF( .NOT.notran .AND. .NOT.( trans.EQ.
'T' .OR. trans.EQ.
176 $
't' ) .AND. .NOT.( trans.EQ.
'C' .OR. trans.EQ.
'c' ) )
THEN
178 ELSE IF( n.LT.0 )
THEN
180 ELSE IF( nrhs.LT.0 )
THEN
182 ELSE IF( ldb.LT.max( n, 1 ) )
THEN
186 CALL xerbla(
'ZGTTRS', -info )
192 IF( n.EQ.0 .OR. nrhs.EQ.0 )
199 ELSE IF( trans.EQ.
'T' .OR. trans.EQ.
't' )
THEN
210 nb = max( 1, ilaenv( 1,
'ZGTTRS', trans, n, nrhs, -1, -1 ) )
213 IF( nb.GE.nrhs )
THEN
214 CALL zgtts2( itrans, n, nrhs, dl, d, du, du2, ipiv, b, ldb )
216 DO 10 j = 1, nrhs, nb
217 jb = min( nrhs-j+1, nb )
218 CALL zgtts2( itrans, n, jb, dl, d, du, du2, ipiv, b( 1, j ),
subroutine zgttrs(TRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB, INFO)
ZGTTRS
subroutine zgtts2(ITRANS, N, NRHS, DL, D, DU, DU2, IPIV, B, LDB)
ZGTTS2 solves a system of linear equations with a tridiagonal matrix using the LU factorization compu...
subroutine xerbla(SRNAME, INFO)
XERBLA