Lines Matching refs:LDC
196 $ T, LDT, C, LDC, WORK, LDWORK ) argument
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N local
208 COMPLEX C( LDC, * ), T( LDT, * ), V( LDV, * ),
260 LASTC = ILACLC( LASTV, N, C, LDC )
267 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
280 $ LASTC, K, LASTV-K, ONE, C( K+1, 1 ), LDC,
297 $ WORK, LDWORK, ONE, C( K+1, 1 ), LDC )
318 LASTC = ILACLR( M, LASTV, C, LDC )
338 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
356 $ ONE, C( 1, K+1 ), LDC )
385 LASTC = ILACLC( LASTV, N, C, LDC )
392 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
407 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
424 $ ONE, C, LDC )
447 LASTC = ILACLR( M, LASTV, C, LDC )
469 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
485 $ ONE, C, LDC )
518 LASTC = ILACLC( LASTV, N, C, LDC )
525 CALL CCOPY( LASTC, C( J, 1 ), LDC, WORK( 1, J ), 1 )
539 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
557 $ ONE, C( K+1, 1 ), LDC )
578 LASTC = ILACLR( M, LASTV, C, LDC )
597 $ LASTC, K, LASTV-K, ONE, C( 1, K+1 ), LDC,
615 $ ONE, C( 1, K+1 ), LDC )
644 LASTC = ILACLC( LASTV, N, C, LDC )
651 CALL CCOPY( LASTC, C( LASTV-K+J, 1 ), LDC,
667 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
683 $ -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
706 LASTC = ILACLR( M, LASTV, C, LDC )
727 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
744 $ ONE, C, LDC )