Lines Matching refs:I
187 INTEGER I, J, PREVLASTV, LASTV local
205 DO I = 1, K
206 PREVLASTV = MAX( PREVLASTV, I )
207 IF( TAU( I ).EQ.ZERO ) THEN
211 DO J = 1, I
212 T( J, I ) = ZERO
220 DO LASTV = N, I+1, -1
221 IF( V( LASTV, I ).NE.ZERO ) EXIT
223 DO J = 1, I-1
224 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) )
230 CALL CGEMV( 'Conjugate transpose', J-I, I-1,
231 $ -TAU( I ), V( I+1, 1 ), LDV,
232 $ V( I+1, I ), 1,
233 $ ONE, T( 1, I ), 1 )
236 DO LASTV = N, I+1, -1
237 IF( V( I, LASTV ).NE.ZERO ) EXIT
239 DO J = 1, I-1
240 T( J, I ) = -TAU( I ) * V( J , I )
246 CALL CGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ),
247 $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV,
248 $ ONE, T( 1, I ), LDT )
253 CALL CTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T,
254 $ LDT, T( 1, I ), 1 )
255 T( I, I ) = TAU( I )
256 IF( I.GT.1 ) THEN
265 DO I = K, 1, -1
266 IF( TAU( I ).EQ.ZERO ) THEN
270 DO J = I, K
271 T( J, I ) = ZERO
277 IF( I.LT.K ) THEN
280 DO LASTV = 1, I-1
281 IF( V( LASTV, I ).NE.ZERO ) EXIT
283 DO J = I+1, K
284 T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) )
290 CALL CGEMV( 'Conjugate transpose', N-K+I-J, K-I,
291 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
292 $ 1, ONE, T( I+1, I ), 1 )
295 DO LASTV = 1, I-1
296 IF( V( I, LASTV ).NE.ZERO ) EXIT
298 DO J = I+1, K
299 T( J, I ) = -TAU( I ) * V( J, N-K+I )
305 CALL CGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
306 $ V( I+1, J ), LDV, V( I, J ), LDV,
307 $ ONE, T( I+1, I ), LDT )
312 CALL CTRMV( 'Lower', 'No transpose', 'Non-unit', K-I,
313 $ T( I+1, I+1 ), LDT, T( I+1, I ), 1 )
314 IF( I.GT.1 ) THEN
320 T( I, I ) = TAU( I )