Lines Matching refs:J
220 INTEGER I, J, LASTV, LASTC local
266 DO 10 J = 1, K
267 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
307 DO 30 J = 1, K
309 C( J, I ) = C( J, I ) - CONJG( WORK( I, J ) )
324 DO 40 J = 1, K
325 CALL CCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
366 DO 60 J = 1, K
368 C( I, J ) = C( I, J ) - WORK( I, J )
391 DO 70 J = 1, K
392 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
393 $ WORK( 1, J ), 1 )
394 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
435 DO 90 J = 1, K
437 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
438 $ CONJG( WORK( I, J ) )
453 DO 100 J = 1, K
454 CALL CCOPY( LASTC, C( 1, LASTV-K+J ), 1,
455 $ WORK( 1, J ), 1 )
496 DO 120 J = 1, K
498 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
499 $ - WORK( I, J )
524 DO 130 J = 1, K
525 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
526 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
567 DO 150 J = 1, K
569 C( J, I ) = C( J, I ) - CONJG( WORK( I, J ) )
584 DO 160 J = 1, K
585 CALL CCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
625 DO 180 J = 1, K
627 C( I, J ) = C( I, J ) - WORK( I, J )
650 DO 190 J = 1, K
651 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
652 $ WORK( 1, J ), 1 )
653 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
694 DO 210 J = 1, K
696 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
697 $ CONJG( WORK( I, J ) )
712 DO 220 J = 1, K
713 CALL CCOPY( LASTC, C( 1, LASTV-K+J ), 1,
714 $ WORK( 1, J ), 1 )
755 DO 240 J = 1, K
757 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
758 $ - WORK( I, J )