Lines Matching refs:BUF
131 COMPLEX BUF( 4 ) local
165 BUF( 1 ) = A( ( ICOL-1 )*LDA+IROW )
166 CALL CGESD2D( CONTXT, 1, 1, BUF, 1, II, JJ )
172 BUF( 1 ) = A( ( ICOL-1 )*LDA+IROW )
173 BUF( 2 ) = A( ( ICOL-1 )*LDA+IROW+1 )
174 BUF( 3 ) = A( ICOL*LDA+IROW )
175 BUF( 4 ) = A( ICOL*LDA+IROW+1 )
176 CALL CGESD2D( CONTXT, 4, 1, BUF, 4, II, JJ )
187 CALL CGERV2D( CONTXT, 4, 1, BUF, 4, UP, LEFT )
188 H11 = BUF( 1 )
189 H21 = BUF( 2 )
190 H12 = BUF( 3 )
191 H22 = BUF( 4 )