Lines Matching refs:J
220 INTEGER I, J, LASTV, LASTC local
263 DO 10 J = 1, K
264 CALL SCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
305 DO 30 J = 1, K
307 C( J, I ) = C( J, I ) - WORK( I, J )
322 DO 40 J = 1, K
323 CALL SCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
364 DO 60 J = 1, K
366 C( I, J ) = C( I, J ) - WORK( I, J )
389 DO 70 J = 1, K
390 CALL SCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
391 $ WORK( 1, J ), 1 )
432 DO 90 J = 1, K
434 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
449 DO 100 J = 1, K
450 CALL SCOPY( LASTC, C( 1, N-K+J ), 1, WORK( 1, J ), 1 )
491 DO 120 J = 1, K
493 C( I, LASTV-K+J ) = C( I, LASTV-K+J ) - WORK(I, J)
518 DO 130 J = 1, K
519 CALL SCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
560 DO 150 J = 1, K
562 C( J, I ) = C( J, I ) - WORK( I, J )
577 DO 160 J = 1, K
578 CALL SCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
619 DO 180 J = 1, K
621 C( I, J ) = C( I, J ) - WORK( I, J )
644 DO 190 J = 1, K
645 CALL SCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
646 $ WORK( 1, J ), 1 )
687 DO 210 J = 1, K
689 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
704 DO 220 J = 1, K
705 CALL SCOPY( LASTC, C( 1, LASTV-K+J ), 1,
706 $ WORK( 1, J ), 1 )
747 DO 240 J = 1, K
749 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
750 $ - WORK( I, J )