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