Lines Matching refs:LDV
195 SUBROUTINE CLARFB( SIDE, TRANS, DIRECT, STOREV, M, N, K, V, LDV, argument
205 INTEGER K, LDC, LDT, LDV, LDWORK, M, N local
208 COMPLEX C( LDC, * ), T( LDT, * ), V( LDV, * ),
259 LASTV = MAX( K, ILACLR( M, K, V, LDV ) )
274 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
281 $ V( K+1, 1 ), LDV, ONE, WORK, LDWORK )
296 $ LASTV-K, LASTC, K, -ONE, V( K+1, 1 ), LDV,
303 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
317 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
331 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
338 $ ONE, C( 1, K+1 ), LDC, V( K+1, 1 ), LDV,
355 $ -ONE, WORK, LDWORK, V( K+1, 1 ), LDV,
362 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
384 LASTV = MAX( K, ILACLR( M, K, V, LDV ) )
400 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
407 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV,
423 $ LASTV-K, LASTC, K, -ONE, V, LDV, WORK, LDWORK,
430 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
446 LASTV = MAX( K, ILACLR( N, K, V, LDV ) )
461 $ LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
469 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
484 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
491 $ 'Unit', LASTC, K, ONE, V( LASTV-K+1, 1 ), LDV,
517 LASTV = MAX( K, ILACLC( K, M, V, LDV ) )
532 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
539 $ ONE, C( K+1, 1 ), LDC, V( 1, K+1 ), LDV,
556 $ -ONE, V( 1, K+1 ), LDV, WORK, LDWORK,
563 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
577 LASTV = MAX( K, ILACLC( K, N, V, LDV ) )
591 $ 'Unit', LASTC, K, ONE, V, LDV, WORK, LDWORK )
598 $ V( 1, K+1 ), LDV, ONE, WORK, LDWORK )
614 $ -ONE, WORK, LDWORK, V( 1, K+1 ), LDV,
621 $ LASTC, K, ONE, V, LDV, WORK, LDWORK )
643 LASTV = MAX( K, ILACLC( K, M, V, LDV ) )
659 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
667 $ ONE, C, LDC, V, LDV, ONE, WORK, LDWORK )
683 $ -ONE, V, LDV, WORK, LDWORK, ONE, C, LDC )
689 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
705 LASTV = MAX( K, ILACLC( K, N, V, LDV ) )
720 $ 'Unit', LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,
727 $ LASTC, K, LASTV-K, ONE, C, LDC, V, LDV, ONE,
743 $ LASTC, LASTV-K, K, -ONE, WORK, LDWORK, V, LDV,
750 $ LASTC, K, ONE, V( 1, LASTV-K+1 ), LDV,