MPI和MIC

//MIC相关的MPI用法

#include"stdio.h"
#include"mpi.h"
int main(int argc,char* argv[])
{
int npes,myrank,data;
int len=20;
char name[20];
MPI_Status mstatus;
MPI_Init(&argc,&argv);

//进程的数目
MPI_Comm_size(MPI_COMM_WORLD,&npes);
//进程号

MPI_Comm_rank(MPI_COMM_WORLD,&myrank);
if(myrank==0)
{
data=100;

//进程0向进程1发送消息，类型为MPI_INT.
MPI_Send(&data,1,MPI_INT,1,0,MPI_COMM_WORLD);
}
else
{
data=200;
MPI_Recv(&data,1,MPI_INT,MPI_ANY_SOURCE,MPI_ANY_TAG,MPI_COMM_WORLD,&mstatus);
//printf("From process %d out of %d,Send/Recv：%d\n",myrank,neps,data);
}
printf("From process %d out of %d,Send/Recv：%d\n",myrank,npes,data);

//得到主机名
gethostname(name,&len);

printf("hostname:%s\n",name);
MPI_Finalize();
return 0;
}

MPI_Send和MPI_Recv必须一一对应，如果启动多个进程，只有rank==0的进程给rank==1的进程发送消息，而rank大于1的进程只有MPI_Recv而没有进程给其发送消息，所以rank大于的进程会一直等待，造成程序不能正常退出。运行结果为：[201514636@mic01 C]$ mpiexec.hydra -n 2 ./mic_mpi
From process 0 out of 2,Send/Recv：100
hostname:mic01
From process 1 out of 2,Send/Recv：100
hostname:mic01
 我用的mic01节点。所以主机名为mic01

[201514636@ln01 C]$ mpiexec.hydra -n 2 ./mic_mpi
From process 0 out of 2,Send/Recv：100
hostname:ln01
From process 1 out of 2,Send/Recv：100
hostname:ln01

这是在ln01节点上运行的

由于我没有root权限，所以上传不到mic卡上执行，但也写出相关命令

#mpiicc mic_mpi.c -o mic_mpi -mmic

#scp 172.31.1.1:/tmp

然后尝试在MIC端执行

#ssh 172.31.1.1

#cd /tmp

# mpiexec.hydra -n 2 ./mic_mpi

关于怎么在MIC卡和CPU之间进行通信执行我就不写了