Lines Matching refs:LASTC
220 INTEGER I, J, LASTV, LASTC local
257 LASTC = ILADLC( LASTV, N, C, LDC )
264 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
270 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
276 $ LASTC, K, LASTV-K,
284 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
293 $ LASTV-K, LASTC, K,
301 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
306 DO 20 I = 1, LASTC
316 LASTC = ILADLR( M, LASTV, C, LDC )
323 CALL DCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
329 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
335 $ LASTC, K, LASTV-K,
343 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
352 $ LASTC, LASTV-K, K,
360 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
365 DO 50 I = 1, LASTC
383 LASTC = ILADLC( LASTV, N, C, LDC )
390 CALL DCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
397 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
404 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
411 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
420 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
427 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
433 DO 80 I = 1, LASTC
443 LASTC = ILADLR( M, LASTV, C, LDC )
450 CALL DCOPY( LASTC, C( 1, N-K+J ), 1, WORK( 1, J ), 1 )
456 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
463 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
470 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
479 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
486 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
492 DO 110 I = 1, LASTC
512 LASTC = ILADLC( LASTV, N, C, LDC )
519 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
525 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
531 $ LASTC, K, LASTV-K,
539 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
548 $ LASTV-K, LASTC, K,
556 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
561 DO 140 I = 1, LASTC
571 LASTC = ILADLR( M, LASTV, C, LDC )
578 CALL DCOPY( LASTC, C( 1, J ), 1, WORK( 1, J ), 1 )
584 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
590 $ LASTC, K, LASTV-K,
598 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
607 $ LASTC, LASTV-K, K,
615 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
620 DO 170 I = 1, LASTC
638 LASTC = ILADLC( LASTV, N, C, LDC )
645 CALL DCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
652 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
659 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
666 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
675 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
682 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
688 DO 200 I = 1, LASTC
698 LASTC = ILADLR( M, LASTV, C, LDC )
705 CALL DCOPY( LASTC, C( 1, LASTV-K+J ), 1,
712 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
719 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
726 $ LASTC, K, ONE, T, LDT, WORK, LDWORK )
735 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
742 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
748 DO 230 I = 1, LASTC