Lines Matching refs:LASTV
149 INTEGER I, LASTV, LASTC local
162 LASTV = 0
168 LASTV = M
170 LASTV = N
173 I = 1 + (LASTV-1) * INCV
178 DO WHILE( LASTV.GT.0 .AND. V( I ).EQ.ZERO )
179 LASTV = LASTV - 1
184 LASTC = ILADLC(LASTV, N, C, LDC)
187 LASTC = ILADLR(M, LASTV, C, LDC)
196 IF( LASTV.GT.0 ) THEN
200 CALL DGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
205 CALL DGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
211 IF( LASTV.GT.0 ) THEN
215 CALL DGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
220 CALL DGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )