Lines Matching refs:ILST
146 SUBROUTINE STREXC( COMPQ, N, T, LDT, Q, LDQ, IFST, ILST, WORK, argument
156 INTEGER IFST, ILST, INFO, LDQ, LDT, N
198 ELSE IF( ILST.LT.1 .OR. ILST.GT.N ) THEN
227 IF( ILST.GT.1 ) THEN
228 IF( T( ILST, ILST-1 ).NE.ZERO )
229 $ ILST = ILST - 1
232 IF( ILST.LT.N ) THEN
233 IF( T( ILST+1, ILST ).NE.ZERO )
237 IF( IFST.EQ.ILST )
240 IF( IFST.LT.ILST ) THEN
245 $ ILST = ILST - 1
247 $ ILST = ILST + 1
267 ILST = HERE
292 ILST = HERE
315 ILST = HERE
331 IF( HERE.LT.ILST )
353 ILST = HERE
378 ILST = HERE
401 ILST = HERE
417 IF( HERE.GT.ILST )
420 ILST = HERE