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 = ILAZLC(LASTV, N, C, LDC)
192 LASTC = ILAZLR(M, LASTV, C, LDC)
201 IF( LASTV.GT.0 ) THEN
205 CALL ZGEMV( 'Conjugate transpose', LASTV, LASTC, ONE,
210 CALL ZGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
216 IF( LASTV.GT.0 ) THEN
220 CALL ZGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
225 CALL ZGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )