Lines Matching refs:LASTC
220 INTEGER I, J, LASTV, LASTC local
260 LASTC = ILAZLC( LASTV, N, C, LDC )
267 CALL ZCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
287 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
296 $ LASTV-K, LASTC, K,
304 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
309 DO 20 I = 1, LASTC
319 LASTC = ILAZLR( M, LASTV, C, LDC )
326 CALL ZCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
332 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
338 $ LASTC, K, LASTV-K,
346 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
355 $ LASTC, LASTV-K, K,
363 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
368 DO 50 I = 1, LASTC
386 LASTC = ILAZLC( LASTV, N, C, LDC )
393 CALL ZCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
395 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
401 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
408 $ LASTC, K, LASTV-K,
416 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
425 $ LASTV-K, LASTC, K,
433 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
439 DO 80 I = 1, LASTC
450 LASTC = ILAZLR( M, LASTV, C, LDC )
457 CALL ZCOPY( LASTC, C( 1, LASTV-K+J ), 1,
464 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
471 $ LASTC, K, LASTV-K,
478 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
487 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
494 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
500 DO 110 I = 1, LASTC
521 LASTC = ILAZLC( LASTV, N, C, LDC )
528 CALL ZCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
529 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
535 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
541 $ 'Conjugate transpose', LASTC, K, LASTV-K,
549 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
558 $ 'Conjugate transpose', LASTV-K, LASTC, K,
566 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
571 DO 140 I = 1, LASTC
581 LASTC = ILAZLR( M, LASTV, C, LDC )
588 CALL ZCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
594 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
600 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
607 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
616 $ LASTC, LASTV-K, K,
624 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
629 DO 170 I = 1, LASTC
647 LASTC = ILAZLC( LASTV, N, C, LDC )
654 CALL ZCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
656 CALL ZLACGV( LASTC, WORK( 1, J ), 1 )
662 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
669 $ 'Conjugate transpose', LASTC, K, LASTV-K,
676 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
685 $ 'Conjugate transpose', LASTV-K, LASTC, K,
692 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
698 DO 200 I = 1, LASTC
709 LASTC = ILAZLR( M, LASTV, C, LDC )
716 CALL ZCOPY( LASTC, C( 1, LASTV-K+J ), 1,
723 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
730 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
737 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
746 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
753 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
759 DO 230 I = 1, LASTC