MPI学习(一)-简单的发送接收

MPI-简单的发送接收

打印来自进程问候语句的MPI程序

所使用的MPI原语

程序运行平台

北京超级云计算中心A3分区

环境变量

mpi/intel/2017.5

编译指令

mpicc 3.1.cpp -o 3.1

运行指令

mpirun -np 4 ./3.1(本地提交,采取4个进程)

程序源代码

#include <stdio.h>
#include <string.h>
#include <mpi.h>   //头文件

const int MAX_STRING = 100 ;

int main(int argc,char **argv)
{
	char greeting[MAX_STRING];
	int comm_sz;
	int my_rank;
	MPI_Status status;

	MPI_Init(&argc,&argv);

	MPI_Comm_size(MPI_COMM_WORLD,&comm_sz);
	MPI_Comm_rank(MPI_COMM_WORLD,&my_rank);
	
	if(my_rank != 0)
	{
		//其他进程向0号进程发消息
		sprintf(greeting,"Greetings from process %d of %d!",my_rank,comm_sz);
		MPI_Send(greeting,strlen(greeting)+1,MPI_CHAR,0,0,MPI_COMM_WORLD); 
	}
	else
	{
		printf("Greetings from process %d of %d!\n",my_rank,comm_sz);
		//0号进程接受来自其他进程的消息并输出
		for(int q=1;q<comm_sz;q++)
		{
			MPI_Recv(greeting,MAX_STRING,MPI_CHAR,q,0,MPI_COMM_WORLD,&status);
			printf("%s\n",greeting);
		}
	}
	MPI_Finalize();
	
	return 0;
}

程序运行结果

Greetings from process 0 of 4!
Greetings from process 1 of 4!
Greetings from process 2 of 4!
Greetings from process 3 of 4!