MyException - 我的异常网
当前位置:我的异常网» VSTS » MPI+VS2010 配备及编译

MPI+VS2010 配备及编译

www.myexceptions.net  网友分享于:2013-04-10  浏览:27次
MPI+VS2010 配置及编译

上学期学了多核计算,现在由于需要要重新配置环境,竟然忘了。又走了很多弯路,所以还是要记录下来。

一  下载mpi for windows

     在这一块我浪费了很多时间。首先windows下(自己电脑的多核)和一般的工作站是不一样的。windos为了兼容mpi,自己做了一个基于一般电脑的MPI实现,如果要安装真正意义的mpi,在intel上有。我这里是为了在自己笔记本上学习mpi,用的市微软的HPC Pack 2008 R2 MS-MPI Redistributable Package with Service Pack 4 - 中文(简体),下载地址:http://www.microsoft.com/zh-cn/download/details.aspx?id=14737。

   不过如果是想在自己笔记本上用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文件(具体看自己的命名)

/*
  功能:mpi点对点通信
  时间:2012.12.13
*/
#include<stdio.h>
#include<string.h>
#include"mpi.h"

#define BUFLEN 512
int main(int argc, char *argv[])
{
	int myid,numprocs,next,namelen;
	char buffer[BUFLEN],processor_name[MPI_MAX_PROCESSOR_NAME];
	MPI_Status status;

	//
	MPI_Init(&argc, &argv);
	MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
	MPI_Comm_rank(MPI_COMM_WORLD, &myid);
	MPI_Get_processor_name(processor_name, &namelen);

	printf("Process %d on %s \n", myid, processor_name);
	printf("Process %d of %d \n", myid, numprocs);
	memset(buffer, 0, BUFLEN*sizeof(char));
	if(myid == numprocs-1)
	{
		next = 0;
	}
	else
	{
		next = myid+1;
	}
	if(myid == 0)
	{
		strcpy(buffer,"hello there");
		printf("%d sending '%s' \n",myid, buffer);fflush(stdout);
		MPI_Send(buffer,strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD);
		printf("%d receving \n", myid);fflush(stdout);
		MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD, &status);
		printf("%d received '%s' \n", myid, buffer);fflush(stdout);
	}
	else
	{
		printf("%d receiving \n",myid);fflush(stdout);
		MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD, &status);
		printf("%d received '%s' \n", myid, buffer);fflush(stdout);
		MPI_Send(buffer,strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD);
		printf("%d sending '%s' \n",myid, buffer);fflush(stdout);
	}
	MPI_Finalize();
	return 0;
}


五 运行

因为mpi是有命令行输入的,需要mpiexec.exe来运行,具体的命令可以help 一下,自己摸索吧

 

文章评论

软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有