[转]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.  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 一下，自己摸索吧

转载于:https://www.cnblogs.com/mrbin/p/3469303.html