Lines Matching refs:LDC
196 $ T, LDT, C, LDC, WORK, LDWORK ) argument
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N local
208 DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ),
257 LASTC = ILADLC( LASTV, N, C, LDC )
264 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
277 $ ONE, C( K+1, 1 ), LDC, V( K+1, 1 ), LDV,
295 $ C( K+1, 1 ), LDC )
316 LASTC = ILADLR( M, LASTV, C, LDC )
336 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
354 $ C( 1, K+1 ), LDC )
383 LASTC = ILADLC( LASTV, N, C, LDC )
390 CALL DCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
404 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
421 $ ONE, C, LDC )
443 LASTC = ILADLR( M, LASTV, C, LDC )
463 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
480 $ ONE, C, LDC )
512 LASTC = ILADLC( LASTV, N, C, LDC )
519 CALL DCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
532 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
550 $ ONE, C( K+1, 1 ), LDC )
571 LASTC = ILADLR( M, LASTV, C, LDC )
591 $ ONE, C( 1, K+1 ), LDC, V( 1, K+1 ), LDV,
609 $ ONE, C( 1, K+1 ), LDC )
638 LASTC = ILADLC( LASTV, N, C, LDC )
645 CALL DCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
659 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
676 $ ONE, C, LDC )
698 LASTC = ILADLR( M, LASTV, C, LDC )
719 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
736 $ ONE, C, LDC )