Lines Matching refs:LASTV
220 INTEGER I, J, LASTV, LASTC local
259 LASTV = MAX( K, ILACLR( M, K, V, LDV ) )
260 LASTC = ILACLC( LASTV, N, C, LDC )
275 IF( LASTV.GT.K ) THEN
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
296 $ LASTV-K, LASTC, K, -ONE, V( K+1, 1 ), LDV,
317 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
318 LASTC = ILACLR( M, LASTV, C, LDC )
332 IF( LASTV.GT.K ) THEN
337 $ LASTC, K, LASTV-K,
349 IF( LASTV.GT.K ) THEN
354 $ LASTC, LASTV-K, K,
384 LASTV = MAX( K, ILACLR( M, K, V, LDV ) )
385 LASTC = ILACLC( LASTV, N, C, LDC )
392 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
400 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
402 IF( LASTV.GT.K ) THEN
407 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
418 IF( LASTV.GT.K ) THEN
423 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
430 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
437 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
446 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
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,
463 IF( LASTV.GT.K ) THEN
468 $ LASTC, K, LASTV-K,
479 IF( LASTV.GT.K ) THEN
484 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
491 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
498 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
517 LASTV = MAX( K, ILACLC( K, M, V, LDV ) )
518 LASTC = ILACLC( LASTV, N, C, LDC )
533 IF( LASTV.GT.K ) THEN
538 $ 'Conjugate transpose', LASTC, K, LASTV-K,
550 IF( LASTV.GT.K ) THEN
555 $ 'Conjugate transpose', LASTV-K, LASTC, K,
577 LASTV = MAX( K, ILACLC( K, N, V, LDV ) )
578 LASTC = ILACLR( M, LASTV, C, LDC )
592 IF( LASTV.GT.K ) THEN
597 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
608 IF( LASTV.GT.K ) THEN
613 $ LASTC, LASTV-K, K,
643 LASTV = MAX( K, ILACLC( K, M, V, LDV ) )
644 LASTC = ILACLC( LASTV, N, C, LDC )
651 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
659 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
661 IF( LASTV.GT.K ) THEN
666 $ 'Conjugate transpose', LASTC, K, LASTV-K,
677 IF( LASTV.GT.K ) THEN
682 $ 'Conjugate transpose', LASTV-K, LASTC, K,
689 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
696 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
705 LASTV = MAX( K, ILACLC( K, N, V, LDV ) )
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,
722 IF( LASTV.GT.K ) THEN
727 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
738 IF( LASTV.GT.K ) THEN
743 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
750 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
757 C( I, LASTV-K+J ) = C( I, LASTV-K+J )