Lines Matching refs:lastc
149 INTEGER I, LASTV, LASTC
163 LASTC = 0
184 LASTC = ILASLC(LASTV, N, C, LDC)
187 LASTC = ILASLR(M, LASTV, C, LDC)
190 ! Note that lastc.eq.0 renders the BLAS operations null; no special
198 * w(1:lastc,1) := C(1:lastv,1:lastc)**T * v(1:lastv,1)
200 CALL SGEMV( 'Transpose', LASTV, LASTC, ONE, C, LDC, V, INCV,
203 * C(1:lastv,1:lastc) := C(...) - v(1:lastv,1) * w(1:lastc,1)**T
205 CALL SGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
213 * w(1:lastc,1) := C(1:lastc,1:lastv) * v(1:lastv,1)
215 CALL SGEMV( 'No transpose', LASTC, LASTV, ONE, C, LDC,
218 * C(1:lastc,1:lastv) := C(...) - w(1:lastc,1) * v(1:lastv,1)**T
220 CALL SGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
