Lines Matching refs:I
186 INTEGER I, J, PREVLASTV, LASTV local
204 DO I = 1, K
205 PREVLASTV = MAX( I, PREVLASTV )
206 IF( TAU( I ).EQ.ZERO ) THEN
210 DO J = 1, I
211 T( J, I ) = ZERO
219 DO LASTV = N, I+1, -1
220 IF( V( LASTV, I ).NE.ZERO ) EXIT
222 DO J = 1, I-1
223 T( J, I ) = -TAU( I ) * V( I , J )
229 CALL SGEMV( 'Transpose', J-I, I-1, -TAU( I ),
230 $ V( I+1, 1 ), LDV, V( I+1, I ), 1, ONE,
231 $ T( 1, I ), 1 )
234 DO LASTV = N, I+1, -1
235 IF( V( I, LASTV ).NE.ZERO ) EXIT
237 DO J = 1, I-1
238 T( J, I ) = -TAU( I ) * V( J , I )
244 CALL SGEMV( 'No transpose', I-1, J-I, -TAU( I ),
245 $ V( 1, I+1 ), LDV, V( I, I+1 ), LDV,
246 $ ONE, T( 1, I ), 1 )
251 CALL STRMV( 'Upper', 'No transpose', 'Non-unit', I-1, T,
252 $ LDT, T( 1, I ), 1 )
253 T( I, I ) = TAU( I )
254 IF( I.GT.1 ) THEN
263 DO I = K, 1, -1
264 IF( TAU( I ).EQ.ZERO ) THEN
268 DO J = I, K
269 T( J, I ) = ZERO
275 IF( I.LT.K ) THEN
278 DO LASTV = 1, I-1
279 IF( V( LASTV, I ).NE.ZERO ) EXIT
281 DO J = I+1, K
282 T( J, I ) = -TAU( I ) * V( N-K+I , J )
288 CALL SGEMV( 'Transpose', N-K+I-J, K-I, -TAU( I ),
289 $ V( J, I+1 ), LDV, V( J, I ), 1, ONE,
290 $ T( I+1, I ), 1 )
293 DO LASTV = 1, I-1
294 IF( V( I, LASTV ).NE.ZERO ) EXIT
296 DO J = I+1, K
297 T( J, I ) = -TAU( I ) * V( J, N-K+I )
303 CALL SGEMV( 'No transpose', K-I, N-K+I-J,
304 $ -TAU( I ), V( I+1, J ), LDV, V( I, J ), LDV,
305 $ ONE, T( I+1, I ), 1 )
310 CALL STRMV( 'Lower', 'No transpose', 'Non-unit', K-I,
311 $ T( I+1, I+1 ), LDT, T( I+1, I ), 1 )
312 IF( I.GT.1 ) THEN
318 T( I, I ) = TAU( I )