Lines Matching refs:LASTV
220 INTEGER I, J, LASTV, LASTC local
259 LASTV = MAX( K, ILAZLR( M, K, V, LDV ) )
260 LASTC = ILAZLC( 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,
318 LASTV = MAX( K, ILAZLR( N, K, V, LDV ) )
319 LASTC = ILAZLR( M, LASTV, C, LDC )
333 IF( LASTV.GT.K ) THEN
338 $ LASTC, K, LASTV-K,
350 IF( LASTV.GT.K ) THEN
355 $ LASTC, LASTV-K, K,
385 LASTV = MAX( K, ILAZLR( M, K, V, LDV ) )
386 LASTC = ILAZLC( LASTV, N, C, LDC )
393 CALL ZCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
401 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
403 IF( LASTV.GT.K ) THEN
408 $ LASTC, K, LASTV-K,
420 IF( LASTV.GT.K ) THEN
425 $ LASTV-K, LASTC, K,
433 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
440 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
449 LASTV = MAX( K, ILAZLR( N, K, V, LDV ) )
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,
466 IF( LASTV.GT.K ) THEN
471 $ LASTC, K, LASTV-K,
482 IF( LASTV.GT.K ) THEN
487 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
494 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
501 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
520 LASTV = MAX( K, ILAZLC( K, M, V, LDV ) )
521 LASTC = ILAZLC( LASTV, N, C, LDC )
536 IF( LASTV.GT.K ) THEN
541 $ 'Conjugate transpose', LASTC, K, LASTV-K,
553 IF( LASTV.GT.K ) THEN
558 $ 'Conjugate transpose', LASTV-K, LASTC, K,
580 LASTV = MAX( K, ILAZLC( K, N, V, LDV ) )
581 LASTC = ILAZLR( M, LASTV, C, LDC )
595 IF( LASTV.GT.K ) THEN
600 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
611 IF( LASTV.GT.K ) THEN
616 $ LASTC, LASTV-K, K,
646 LASTV = MAX( K, ILAZLC( K, M, V, LDV ) )
647 LASTC = ILAZLC( LASTV, N, C, LDC )
654 CALL ZCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
662 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
664 IF( LASTV.GT.K ) THEN
669 $ 'Conjugate transpose', LASTC, K, LASTV-K,
680 IF( LASTV.GT.K ) THEN
685 $ 'Conjugate transpose', LASTV-K, LASTC, K,
692 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
699 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
708 LASTV = MAX( K, ILAZLC( K, N, V, LDV ) )
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,
725 IF( LASTV.GT.K ) THEN
730 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
741 IF( LASTV.GT.K ) THEN
746 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
753 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
760 C( I, LASTV-K+J ) = C( I, LASTV-K+J )