Lines Matching refs:LASTV
220 INTEGER I, J, LASTV, LASTC local
256 LASTV = MAX( K, ILASLR( M, K, V, LDV ) )
257 LASTC = ILASLC( LASTV, N, C, LDC )
271 IF( LASTV.GT.K ) THEN
276 $ LASTC, K, LASTV-K,
288 IF( LASTV.GT.K ) THEN
293 $ LASTV-K, LASTC, K,
315 LASTV = MAX( K, ILASLR( N, K, V, LDV ) )
316 LASTC = ILASLR( M, LASTV, C, LDC )
330 IF( LASTV.GT.K ) THEN
335 $ LASTC, K, LASTV-K,
347 IF( LASTV.GT.K ) THEN
352 $ LASTC, LASTV-K, K,
382 LASTV = MAX( K, ILASLR( M, K, V, LDV ) )
383 LASTC = ILASLC( LASTV, N, C, LDC )
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,
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,
434 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
442 LASTV = MAX( K, ILASLR( N, K, V, LDV ) )
443 LASTC = ILASLR( M, LASTV, C, LDC )
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,
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,
493 C( I, LASTV-K+J ) = C( I, LASTV-K+J ) - WORK(I, J)
511 LASTV = MAX( K, ILASLC( K, M, V, LDV ) )
512 LASTC = ILASLC( LASTV, N, C, LDC )
526 IF( LASTV.GT.K ) THEN
531 $ LASTC, K, LASTV-K,
543 IF( LASTV.GT.K ) THEN
548 $ LASTV-K, LASTC, K,
570 LASTV = MAX( K, ILASLC( K, N, V, LDV ) )
571 LASTC = ILASLR( M, LASTV, C, LDC )
585 IF( LASTV.GT.K ) THEN
590 $ LASTC, K, LASTV-K,
602 IF( LASTV.GT.K ) THEN
607 $ LASTC, LASTV-K, K,
637 LASTV = MAX( K, ILASLC( K, M, V, LDV ) )
638 LASTC = ILASLC( LASTV, N, C, LDC )
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,
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,
689 C( LASTV-K+J, I ) = C( LASTV-K+J, I ) - WORK(I, J)
697 LASTV = MAX( K, ILASLC( K, N, V, LDV ) )
698 LASTC = ILASLR( M, LASTV, C, LDC )
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,
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,
749 C( I, LASTV-K+J ) = C( I, LASTV-K+J )