Lines Matching defs:WORK
21 * SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
29 * COMPLEX*16 C( LDC, * ), V( * ), WORK( * )
109 *> \param[out] WORK
111 *> WORK is COMPLEX*16 array, dimension
129 SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
142 COMPLEX*16 C( LDC, * ), V( * ), WORK( * )
206 $ C, LDC, V, INCV, ZERO, WORK, 1 )
210 CALL ZGERC( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
221 $ V, INCV, ZERO, WORK, 1 )
225 CALL ZGERC( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
