[转]MPI--MPI+VS2010 配置及编译

一  下载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 一下，本身摸索吧