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 ZGEMV( 'Conjugate transpose', J-I, I-1,
231 $ -TAU( I ), V( I+1, 1 ), LDV,
232 $ V( I+1, I ), 1, ONE, T( 1, I ), 1 )
235 DO LASTV = N, I+1, -1
236 IF( V( I, LASTV ).NE.ZERO ) EXIT
238 DO J = 1, I-1
239 T( J, I ) = -TAU( I ) * V( J , I )
245 CALL ZGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ),
246 $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV,
247 $ ONE, T( 1, I ), LDT )
252 CALL ZTRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T,
253 $ LDT, T( 1, I ), 1 )
254 T( I, I ) = TAU( I )
255 IF( I.GT.1 ) THEN
264 DO I = K, 1, -1
265 IF( TAU( I ).EQ.ZERO ) THEN
269 DO J = I, K
270 T( J, I ) = ZERO
276 IF( I.LT.K ) THEN
279 DO LASTV = 1, I-1
280 IF( V( LASTV, I ).NE.ZERO ) EXIT
282 DO J = I+1, K
283 T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) )
289 CALL ZGEMV( 'Conjugate transpose', N-K+I-J, K-I,
290 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
291 $ 1, ONE, T( I+1, I ), 1 )
294 DO LASTV = 1, I-1
295 IF( V( I, LASTV ).NE.ZERO ) EXIT
297 DO J = I+1, K
298 T( J, I ) = -TAU( I ) * V( J, N-K+I )
304 CALL ZGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
305 $ V( I+1, J ), LDV, V( I, J ), LDV,
306 $ ONE, T( I+1, I ), LDT )
311 CALL ZTRMV( 'Lower', 'No transpose', 'Non-unit', K-I,
312 $ T( I+1, I+1 ), LDT, T( I+1, I ), 1 )
313 IF( I.GT.1 ) THEN
319 T( I, I ) = TAU( I )