Lines Matching defs:WORK
21 * SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
29 * REAL C( LDC, * ), V( * ), WORK( * )
105 *> \param[out] WORK
107 *> WORK is REAL array, dimension
125 SUBROUTINE SLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
138 REAL C( LDC, * ), V( * ), WORK( * )
201 $ ZERO, WORK, 1 )
205 CALL SGER( LASTV, LASTC, -TAU, V, INCV, WORK, 1, C, LDC )
216 $ V, INCV, ZERO, WORK, 1 )
220 CALL SGER( LASTC, LASTV, -TAU, WORK, 1, V, INCV, C, LDC )
