Lines Matching defs:LDC
22 * T, LDT, C, LDC, WORK, LDWORK )
26 * INTEGER K, LDC, LDT, LDV, LDWORK, M, N
29 * DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ),
130 *> C is DOUBLE PRECISION array, dimension (LDC,N)
135 *> \param[in] LDC
137 *> LDC is INTEGER
138 *> The leading dimension of the array C. LDC >= max(1,M).
196 $ T, LDT, C, LDC, WORK, LDWORK )
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N
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 )