一 下载mpi for windows
在这一块我浪费了很多时间。首先windows下（自己电脑的多核）和一般的工作站是不一样的。windos为了兼容mpi,自己做了一个基于一般电脑的MPI实现，如果要安装真正意义的mpi,在intel上有。我这里是为了在自己笔记本上学习mpi,用的是微软的HPC Pack 2008 R2 MS-MPI Redistributable Package with Service Pack 4。
不过如果是想在自己笔记本上用fortran版的mpi,即用fortran编译mpi,那么和这里的不一样。这里是c的。fortran的以后添加。
二 安装mpi
我的电脑是64位的，所以安装的是mpi_x64.msi，安在C:\Program Files\Microsoft HPC Pack 2008 R2,
三 配置vs2010
3.1配置目录，即加载Include和Lib库
3.2配置运行库
3.3预处理处理，这里至于为什么，我没搞懂，
3.4加载依赖项
四 编译
这是一个测试例子，在vs2010下编译生成xx.exe文件(具体看自己的命名)
-
1 /* 2 功能：mpi点对点通信 3 时间：2012.12.13 4 */ 5 #include<stdio.h> 6 #include<string.h> 7 #include"mpi.h" 8 9 #define BUFLEN 512 10 int main(int argc, char *argv[]) 11 { 12 int myid,numprocs,next,namelen; 13 char buffer[BUFLEN],processor_name[MPI_MAX_PROCESSOR_NAME]; 14 MPI_Status status; 15 16 // 17 MPI_Init(&argc, &argv); 18 MPI_Comm_size(MPI_COMM_WORLD, &numprocs); 19 MPI_Comm_rank(MPI_COMM_WORLD, &myid); 20 MPI_Get_processor_name(processor_name, &namelen); 21 22 printf("Process %d on %s \n", myid, processor_name); 23 printf("Process %d of %d \n", myid, numprocs); 24 memset(buffer, 0, BUFLEN*sizeof(char)); 25 if(myid == numprocs-1) 26 { 27 next = 0; 28 } 29 else 30 { 31 next = myid+1; 32 } 33 if(myid == 0) 34 { 35 strcpy(buffer,"hello there"); 36 printf("%d sending '%s' \n",myid, buffer);fflush(stdout); 37 MPI_Send(buffer,strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD); 38 printf("%d receving \n", myid);fflush(stdout); 39 MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD, &status); 40 printf("%d received '%s' \n", myid, buffer);fflush(stdout); 41 } 42 else 43 { 44 printf("%d receiving \n",myid);fflush(stdout); 45 MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD, &status); 46 printf("%d received '%s' \n", myid, buffer);fflush(stdout); 47 MPI_Send(buffer,strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD); 48 printf("%d sending '%s' \n",myid, buffer);fflush(stdout); 49 } 50 MPI_Finalize(); 51 return 0; 52 }
五 运行
因为mpi是有命令行输入的，需要mpiexec.exe来运行：
具体的命令可以help 一下，自己摸索吧