Lines Matching refs:BUF
126 DOUBLE PRECISION BUF( 4 ) local
154 BUF( 1 ) = A( ( ICOL-1 )*LDA+IROW )
155 CALL DGESD2D( CONTXT, 1, 1, BUF, 1, II, JJ )
161 BUF( 1 ) = A( ( ICOL-1 )*LDA+IROW )
162 BUF( 2 ) = A( ( ICOL-1 )*LDA+IROW+1 )
163 BUF( 3 ) = A( ICOL*LDA+IROW )
164 BUF( 4 ) = A( ICOL*LDA+IROW+1 )
165 CALL DGESD2D( CONTXT, 4, 1, BUF, 4, II, JJ )
176 CALL DGERV2D( CONTXT, 4, 1, BUF, 4, UP, LEFT )
177 H11 = BUF( 1 )
178 H21 = BUF( 2 )
179 H12 = BUF( 3 )
180 H22 = BUF( 4 )