Lines Matching refs:K
195 SUBROUTINE ZLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, argument
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N local
259 LASTV = MAX( K, ILAZLR( M, K, V, LDV ) )
266 DO 10 J = 1, K
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
275 IF( LASTV.GT.K ) THEN
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
281 $ V( K+1, 1 ), LDV, ONE, WORK, LDWORK )
287 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
291 IF( M.GT.K ) THEN
296 $ LASTV-K, LASTC, K,
297 $ -ONE, V( K+1, 1 ), LDV, WORK, LDWORK,
298 $ ONE, C( K+1, 1 ), LDC )
304 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
308 DO 30 J = 1, K
318 LASTV = MAX( K, ILAZLR( N, K, V, LDV ) )
325 DO 40 J = 1, K
332 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
333 IF( LASTV.GT.K ) THEN
338 $ LASTC, K, LASTV-K,
339 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
346 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
350 IF( LASTV.GT.K ) THEN
355 $ LASTC, LASTV-K, K,
356 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
357 $ ONE, C( 1, K+1 ), LDC )
363 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
367 DO 60 J = 1, K
385 LASTV = MAX( K, ILAZLR( M, K, V, LDV ) )
392 DO 70 J = 1, K
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,
416 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
420 IF( LASTV.GT.K ) THEN
425 $ LASTV-K, LASTC, K,
433 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
438 DO 90 J = 1, K
440 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
449 LASTV = MAX( K, ILAZLR( N, K, V, LDV ) )
456 DO 100 J = 1, K
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,
478 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
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,
499 DO 120 J = 1, K
501 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
520 LASTV = MAX( K, ILAZLC( K, M, V, LDV ) )
527 DO 130 J = 1, K
535 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
536 IF( LASTV.GT.K ) THEN
541 $ 'Conjugate transpose', LASTC, K, LASTV-K,
542 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
549 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
553 IF( LASTV.GT.K ) THEN
558 $ 'Conjugate transpose', LASTV-K, LASTC, K,
559 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
560 $ ONE, C( K+1, 1 ), LDC )
566 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
570 DO 150 J = 1, K
580 LASTV = MAX( K, ILAZLC( K, N, V, LDV ) )
587 DO 160 J = 1, K
594 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
595 IF( LASTV.GT.K ) THEN
600 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
601 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
607 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
611 IF( LASTV.GT.K ) THEN
616 $ LASTC, LASTV-K, K,
617 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
618 $ ONE, C( 1, K+1 ), LDC )
624 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
628 DO 180 J = 1, K
646 LASTV = MAX( K, ILAZLC( K, M, V, LDV ) )
653 DO 190 J = 1, K
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,
676 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
680 IF( LASTV.GT.K ) THEN
685 $ 'Conjugate transpose', LASTV-K, LASTC, K,
692 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
697 DO 210 J = 1, K
699 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
708 LASTV = MAX( K, ILAZLC( K, N, V, LDV ) )
715 DO 220 J = 1, K
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,
737 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
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,
758 DO 240 J = 1, K
760 C( I, LASTV-K+J ) = C( I, LASTV-K+J )