Lines Matching refs:LASTV
154 INTEGER I, LASTV, LASTC local
167 LASTV = 0
173 LASTV = M
175 LASTV = N
178 I = 1 + (LASTV-1) * INCV
183 DO WHILE( LASTV.GT.0 .AND. V( I ).EQ.ZERO )
184 LASTV = LASTV - 1
189 LASTC = ILACLC(LASTV, N, C, LDC)
192 LASTC = ILACLR(M, LASTV, C, LDC)
201 IF( LASTV.GT.0 ) THEN
205 CALL CGEMV( 'Conjugate transpose', LASTV, LASTC, ONE,
210 CALL CGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
216 IF( LASTV.GT.0 ) THEN
220 CALL CGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
225 CALL CGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )