Lines Matching refs:LDV
21 * SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV,
26 * INTEGER K, LDC, LDT, LDV, LDWORK, M, N
29 * DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ),
100 *> (LDV,K) if STOREV = 'C'
101 *> (LDV,M) if STOREV = 'R' and SIDE = 'L'
102 *> (LDV,N) if STOREV = 'R' and SIDE = 'R'
106 *> \param[in] LDV
108 *> LDV is INTEGER
110 *> If STOREV = 'C' and SIDE = 'L', LDV >= max(1,M);
111 *> if STOREV = 'C' and SIDE = 'R', LDV >= max(1,N);
112 *> if STOREV = 'R', LDV >= K.
195 SUBROUTINE DLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV,
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N
208 DOUBLE PRECISION C( LDC, * ), T( LDT, * ), V( LDV, * ),
256 LASTV = MAX( K, ILADLR( M, K, V, LDV ) )
270 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
277 $ ONE, C( K+1, 1 ), LDC, V( K+1, 1 ), LDV,
294 $ -ONE, V( K+1, 1 ), LDV, WORK, LDWORK, ONE,
301 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
315 LASTV = MAX( K, ILADLR( N, K, V, LDV ) )
329 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
336 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
353 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV, ONE,
360 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
382 LASTV = MAX( K, ILADLR( M, K, V, LDV ) )
397 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
404 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
420 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
427 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
442 LASTV = MAX( K, ILADLR( N, K, V, LDV ) )
456 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
463 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
479 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
486 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
511 LASTV = MAX( K, ILADLC( K, M, V, LDV ) )
525 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
532 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
549 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
556 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
570 LASTV = MAX( K, ILADLC( K, N, V, LDV ) )
584 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
591 $ ONE, C( 1, K+1 ), LDC, V( 1, K+1 ), LDV,
608 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
615 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
637 LASTV = MAX( K, ILADLC( K, M, V, LDV ) )
652 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
659 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
675 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
682 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
697 LASTV = MAX( K, ILADLC( K, N, V, LDV ) )
712 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
719 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
735 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
742 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,