Lines Matching refs:BUF
2 $ W, Z, U, LDU, BUF, INDX, INDCOL, INDROW, argument
17 DOUBLE PRECISION BUF( * ), D( * ), DLAMDA( * ), U( LDU, * ), local
210 CALL DLAED4( K, KK, DLAMDA, W, BUF, RHO, BUF( K+I ), IINFO )
218 Z( J ) = Z( J )*( BUF( J ) /
221 Z( KK ) = Z( KK )*BUF( KK )
223 Z( J ) = Z( J )*( BUF( J ) /
230 CALL DCOPY( K, Z, 1, BUF, 1 )
231 CALL DGESD2D( ICTXT, K+MYKLR, 1, BUF, K+MYKLR, DROW, MYCOL )
234 CALL DCOPY( MYKLR, BUF( K+1 ), 1, BUF( IPD ), 1 )
239 CALL DGERV2D( ICTXT, K+KLR, 1, BUF, K+KLR, ROW,
241 CALL DCOPY( KLR, BUF( K+1 ), 1, BUF( IPD ), 1 )
243 Z( J ) = Z( J )*BUF( J )
254 CALL DCOPY( K, Z, 1, BUF, 1 )
255 CALL DCOPY( MYKL, BUF( 2*K+1 ), 1, BUF( K+1 ), 1 )
256 CALL DGESD2D( ICTXT, K+MYKL, 1, BUF, K+MYKL, MYROW, DCOL )
266 CALL DGERV2D( ICTXT, K+KL, 1, BUF, K+KL, MYROW, COL )
267 CALL DCOPY( KL, BUF( K+1 ), 1, BUF( IPD ), 1 )
269 Z( J ) = Z( J )*BUF( J )
283 CALL DCOPY( K, Z, 1, BUF, 1 )
284 CALL DCOPY( K, BUF( 2*K+1 ), 1, BUF( K+1 ), 1 )
285 CALL DGEBS2D( ICTXT, 'All', ' ', 2*K, 1, BUF, 2*K )
287 CALL DGEBR2D( ICTXT, 'All', ' ', 2*K, 1, BUF, 2*K, DROW, DCOL )
288 CALL DCOPY( K, BUF, 1, Z, 1 )
297 D( GI ) = BUF( K+I )
317 CALL DLAED4( K, KK, DLAMDA, W, BUF, RHO, AUX, IINFO )
326 U( IIU, JJU ) = BUF( KK )
332 BUF( I ) = Z( I ) / BUF( I )
334 TEMP = DNRM2( K, BUF, 1 )
339 U( IIU, JJU ) = BUF( KK ) / TEMP