Lines Matching refs:K
195 SUBROUTINE SLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, argument
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N local
256 LASTV = MAX( K, ILASLR( M, K, V, LDV ) )
263 DO 10 J = 1, K
270 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
271 IF( LASTV.GT.K ) THEN
276 $ LASTC, K, LASTV-K,
277 $ ONE, C( K+1, 1 ), LDC, V( K+1, 1 ), LDV,
284 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
288 IF( LASTV.GT.K ) THEN
293 $ LASTV-K, LASTC, K,
294 $ -ONE, V( K+1, 1 ), LDV, WORK, LDWORK, ONE,
295 $ C( K+1, 1 ), LDC )
301 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
305 DO 30 J = 1, K
315 LASTV = MAX( K, ILASLR( N, K, V, LDV ) )
322 DO 40 J = 1, K
329 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
330 IF( LASTV.GT.K ) THEN
335 $ LASTC, K, LASTV-K,
336 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
343 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
347 IF( LASTV.GT.K ) THEN
352 $ LASTC, LASTV-K, K,
353 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV, ONE,
354 $ C( 1, K+1 ), LDC )
360 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
364 DO 60 J = 1, K
382 LASTV = MAX( K, ILASLR( M, K, V, LDV ) )
389 DO 70 J = 1, K
390 CALL SCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
397 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
399 IF( LASTV.GT.K ) THEN
404 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
411 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
415 IF( LASTV.GT.K ) THEN
420 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
427 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
432 DO 90 J = 1, K
434 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
442 LASTV = MAX( K, ILASLR( N, K, V, LDV ) )
449 DO 100 J = 1, K
450 CALL SCOPY( LASTC, C( 1, N-K+J ), 1, WORK( 1, J ), 1 )
456 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
458 IF( LASTV.GT.K ) THEN
463 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
470 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
474 IF( LASTV.GT.K ) THEN
479 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
486 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
491 DO 120 J = 1, K
493 C( I, LASTV-K+J ) = C( I, LASTV-K+J ) - WORK(I, J)
511 LASTV = MAX( K, ILASLC( K, M, V, LDV ) )
518 DO 130 J = 1, K
525 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
526 IF( LASTV.GT.K ) THEN
531 $ LASTC, K, LASTV-K,
532 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
539 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
543 IF( LASTV.GT.K ) THEN
548 $ LASTV-K, LASTC, K,
549 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
550 $ ONE, C( K+1, 1 ), LDC )
556 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
560 DO 150 J = 1, K
570 LASTV = MAX( K, ILASLC( K, N, V, LDV ) )
577 DO 160 J = 1, K
584 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
585 IF( LASTV.GT.K ) THEN
590 $ LASTC, K, LASTV-K,
591 $ ONE, C( 1, K+1 ), LDC, V( 1, K+1 ), LDV,
598 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
602 IF( LASTV.GT.K ) THEN
607 $ LASTC, LASTV-K, K,
608 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
609 $ ONE, C( 1, K+1 ), LDC )
615 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
619 DO 180 J = 1, K
637 LASTV = MAX( K, ILASLC( K, M, V, LDV ) )
644 DO 190 J = 1, K
645 CALL SCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
652 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
654 IF( LASTV.GT.K ) THEN
659 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
666 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
670 IF( LASTV.GT.K ) THEN
675 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
682 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
687 DO 210 J = 1, K
689 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
697 LASTV = MAX( K, ILASLC( K, N, V, LDV ) )
704 DO 220 J = 1, K
705 CALL SCOPY( LASTC, C( 1, LASTV-K+J ), 1,
712 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
714 IF( LASTV.GT.K ) THEN
719 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
726 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
730 IF( LASTV.GT.K ) THEN
735 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
742 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
747 DO 240 J = 1, K
749 C( I, LASTV-K+J ) = C( I, LASTV-K+J )