Lines Matching refs:K
195 SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, argument
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N local
259 LASTV = MAX( K, ILACLR( 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, -ONE, V( K+1, 1 ), LDV,
297 $ WORK, LDWORK, ONE, C( K+1, 1 ), LDC )
303 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
307 DO 30 J = 1, K
317 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
324 DO 40 J = 1, K
331 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
332 IF( LASTV.GT.K ) THEN
337 $ LASTC, K, LASTV-K,
338 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
345 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
349 IF( LASTV.GT.K ) THEN
354 $ LASTC, LASTV-K, K,
355 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
356 $ ONE, C( 1, K+1 ), LDC )
362 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
366 DO 60 J = 1, K
384 LASTV = MAX( K, ILACLR( M, K, V, LDV ) )
391 DO 70 J = 1, K
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,
414 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
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,
435 DO 90 J = 1, K
437 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
446 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
453 DO 100 J = 1, K
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,
475 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
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,
496 DO 120 J = 1, K
498 C( I, LASTV-K+J ) = C( I, LASTV-K+J )
517 LASTV = MAX( K, ILACLC( K, M, V, LDV ) )
524 DO 130 J = 1, K
532 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
533 IF( LASTV.GT.K ) THEN
538 $ 'Conjugate transpose', LASTC, K, LASTV-K,
539 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
546 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
550 IF( LASTV.GT.K ) THEN
555 $ 'Conjugate transpose', LASTV-K, LASTC, K,
556 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
557 $ ONE, C( K+1, 1 ), LDC )
563 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
567 DO 150 J = 1, K
577 LASTV = MAX( K, ILACLC( K, N, V, LDV ) )
584 DO 160 J = 1, K
591 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
592 IF( LASTV.GT.K ) THEN
597 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
598 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
604 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
608 IF( LASTV.GT.K ) THEN
613 $ LASTC, LASTV-K, K,
614 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
615 $ ONE, C( 1, K+1 ), LDC )
621 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
625 DO 180 J = 1, K
643 LASTV = MAX( K, ILACLC( K, M, V, LDV ) )
650 DO 190 J = 1, K
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,
673 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
677 IF( LASTV.GT.K ) THEN
682 $ 'Conjugate transpose', LASTV-K, LASTC, K,
689 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
694 DO 210 J = 1, K
696 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) -
705 LASTV = MAX( K, ILACLC( K, N, V, LDV ) )
712 DO 220 J = 1, K
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,
734 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
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,
755 DO 240 J = 1, K
757 C( I, LASTV-K+J ) = C( I, LASTV-K+J )