Lines Matching refs:J
187 INTEGER I, J, PREVLASTV, LASTV local
211 DO J = 1, I
212 T( J, I ) = ZERO
223 DO J = 1, I-1
224 T( J, I ) = -TAU( I ) * CONJG( V( I , J ) )
226 J = MIN( LASTV, PREVLASTV )
230 CALL CGEMV( 'Conjugate transpose', J-I, I-1,
239 DO J = 1, I-1
240 T( J, I ) = -TAU( I ) * V( J , I )
242 J = MIN( LASTV, PREVLASTV )
246 CALL CGEMM( 'N', 'C', I-1, 1, J-I, -TAU( I ),
270 DO J = I, K
271 T( J, I ) = ZERO
283 DO J = I+1, K
284 T( J, I ) = -TAU( I ) * CONJG( V( N-K+I , J ) )
286 J = MAX( LASTV, PREVLASTV )
290 CALL CGEMV( 'Conjugate transpose', N-K+I-J, K-I,
291 $ -TAU( I ), V( J, I+1 ), LDV, V( J, I ),
298 DO J = I+1, K
299 T( J, I ) = -TAU( I ) * V( J, N-K+I )
301 J = MAX( LASTV, PREVLASTV )
305 CALL CGEMM( 'N', 'C', K-I, 1, N-K+I-J, -TAU( I ),
306 $ V( I+1, J ), LDV, V( I, J ), LDV,