Lines Matching refs:BUF
13 SUBROUTINE ZMUMPS_SYMMETRIZE( BUF, BLOCK_SIZE, argument
19 COMPLEX(kind=8) BUF( BLOCK_SIZE * BLOCK_SIZE ) local
85 CALL ZMUMPS_SEND_BLOCK( BUF,
94 CALL ZMUMPS_RECV_BLOCK( BUF,
102 SUBROUTINE ZMUMPS_SEND_BLOCK( BUF, A, LDA, M, N, COMM, DEST ) argument
105 COMPLEX(kind=8) BUF(*), A(LDA,*) local
112 BUF( IBUF: IBUF + M - 1 ) = A( 1 : M, J )
117 CALL MPI_SEND( BUF, M * N, MPI_DOUBLE_COMPLEX,
121 SUBROUTINE ZMUMPS_RECV_BLOCK( BUF, A, LDA, M, N, COMM, SOURCE ) argument
124 COMPLEX(kind=8) BUF(*), A( LDA, *) local
129 CALL MPI_RECV( BUF(1), M * N, MPI_DOUBLE_COMPLEX, SOURCE,
133 CALL zcopy( N, BUF(IBUF), 1, A(I,1), LDA )