Lines Matching refs:LASTC
220 INTEGER I, J, LASTV, LASTC local
260 LASTC = ILACLC( LASTV, N, C, LDC )
267 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
268 CALL CLACGV( 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, -ONE, V( K+1, 1 ), LDV,
303 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
308 DO 20 I = 1, LASTC
318 LASTC = ILACLR( M, LASTV, C, LDC )
325 CALL CCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
331 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
337 $ LASTC, K, LASTV-K,
345 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
354 $ LASTC, LASTV-K, K,
362 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
367 DO 50 I = 1, LASTC
385 LASTC = ILACLC( LASTV, N, C, LDC )
392 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
394 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
400 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
407 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
414 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
423 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
430 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
436 DO 80 I = 1, LASTC
447 LASTC = ILACLR( M, LASTV, C, LDC )
454 CALL CCOPY( LASTC, C( 1, LASTV-K+J ), 1,
461 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
468 $ LASTC, K, LASTV-K,
475 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
484 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
491 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
497 DO 110 I = 1, LASTC
518 LASTC = ILACLC( LASTV, N, C, LDC )
525 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
526 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
532 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
538 $ 'Conjugate transpose', LASTC, K, LASTV-K,
546 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
555 $ 'Conjugate transpose', LASTV-K, LASTC, K,
563 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
568 DO 140 I = 1, LASTC
578 LASTC = ILACLR( M, LASTV, C, LDC )
585 CALL CCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
591 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
597 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
604 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
613 $ LASTC, LASTV-K, K,
621 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
626 DO 170 I = 1, LASTC
644 LASTC = ILACLC( LASTV, N, C, LDC )
651 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
653 CALL CLACGV( LASTC, WORK( 1, J ), 1 )
659 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
666 $ 'Conjugate transpose', LASTC, K, LASTV-K,
673 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
682 $ 'Conjugate transpose', LASTV-K, LASTC, K,
689 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
695 DO 200 I = 1, LASTC
706 LASTC = ILACLR( M, LASTV, C, LDC )
713 CALL CCOPY( LASTC, C( 1, LASTV-K+J ), 1,
720 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
727 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
734 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
743 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
750 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
756 DO 230 I = 1, LASTC