MPI技术测试1-bsendBuffer

最新推荐文章于 2024-10-10 22:04:37 发布

Rocky_myx

最新推荐文章于 2024-10-10 22:04:37 发布

阅读量411

点赞数

分类专栏：并行计算（MPI）文章标签： c语言

本文链接：https://blog.csdn.net/qq_33562636/article/details/113113993

版权

并行计算（MPI）专栏收录该内容

9 篇文章 1 订阅

订阅专栏

MPI设置bsendBuffer

#include <stdio.h>
#include <mpi.h>
#include <unistd.h>
#include <stdlib.h>
#include <math.h>

#define buf_size 65539

int main(int argc, char **argv)
{
	int rank, size, other;

	int sb[buf_size];
	int rb[buf_size];
	MPI_Status status;
	int bufsize;
	char *buf;

	MPI_Init(&argc,&argv);
	MPI_Comm_size(MPI_COMM_WORLD, &size);
	MPI_Comm_rank(MPI_COMM_WORLD, &rank);

	MPI_Pack_size(buf_size,MPI_INT, MPI_COMM_WORLD,&bufsize);
	bufsize = bufsize + MPI_BSEND_OVERHEAD;
	buf = (char *)malloc(bufsize);
	MPI_Buffer_attach(buf,bufsize);

	for (int i = 0; i < buf_size; i++)
	{
		sb[i] = buf_size * rank + i;
	}

	if (rank == 0)other = 1;
	if (rank == 1)other = 0;

	fprintf(stderr,"process:%d of %d trying sending...\n",rank,size);
	MPI_Bsend(sb,buf_size,MPI_INT,other,1, MPI_COMM_WORLD);
	fprintf(stderr, "process:%d of %d trying receinging...\n", rank, size);
	MPI_Recv(rb, buf_size, MPI_INT, other, 1, MPI_COMM_WORLD,&status);

	fprintf(stderr, "Hello World!process:%d of %d\n", rank, size);

	MPI_Buffer_detach(&buf,&bufsize);
	free(buf);
	
	MPI_Finalize();

	return 0;
}