MPI并行编程.pptVIP

MPI并行编程　　　 　　报告人：李俊照 内容 1、MPI并行编程简介 2、efund并行的结果分析 3、主程序的并行思路 MPI并行编程简介 主/从式　 主进程将任务分发到从进程分别计算，再收集计算结果，比如计算1+…+100,可以分成两部份。进从程计算1+..+50和51+..+100，主进程收集结果再相加 　　　 对等式 每个进程相对独立计算各自的任务 比如要计算1+…+100和1*…*100,可以由两个进程独立计算 混合模式 主进程分发完任务后，参与计算 如计算1+..+100，主进程可以自己计算1..33,分发任务34..66和67..100到两个从进程。可以提高效率 一个简单的MPI程序 include 　mpif.h‘ integer 　myid,numprocs,ierr,rc call MPI_Init(ierr) call　MPI_Comm_rank(MPI_COMM_WORLD,myid,ierr) call MPI_Comm_size(MPI_COMM_WORLD,numprocs,ierr) //添加需要并行的程序 Write(*,*) Hello World! process is :,myid // call MPI_Finalize(rc) 运行的结果 MPI初始化 call MPI_Init(ierr) Integer ierr　 MPI结束 call MPI_Finalize(ierr) Integer ierr 当前进程标识 call　MPI_Comm_rank(MPI_COMM_WORLD,myid,ierr) In MPI_COMM_WORLD 为进程所在的通信域 Out Integer myid,ierr 通信域包含的进程数 Call　MPI_Comm_size(MPI_COMM_WORLD,numprocs,ierr) In MPI_COMM_WORLD Out Integer numprocs,ierr 通信域 一个通信域是一个进程组加上一个现场，进程组是所有参加通信的进程的集合，如果一共有N个进程参加通信，则进程编号从0到N－1；现场提供一个相对独立的通信区域 MPI消息 MPI消息包括信封和数据两部份 信封：＜源/目，标识，通信域＞ 数据：＜起始地址，数据个数，数据类型＞ MPI_Send(buf,count,datatype,dest,tag,comm) 　　消息数据　　　　　消息信封 In buf,count,datatype,dest,tag,comm 消息接收 MPI_Recv(buf,count,datatype,source,tag,comm,status) In count,datatype,source,tag,comm Out buf,status(返回状态) MPI类型匹配：数据类型要一致　 阻塞通信与非阻塞通信　　 非阻塞消息发送 MPI＿ISend(buf,count,datatype,dest,tag,comm,request,ierr) In buf,count,datatype,dest,tag,comm Out request,ierr Request(返回的非阻塞通信对象) 非阻塞消息接收 MPI＿IRecv(buf,count,datatype,source,tag,comm,request,ierr) In buf,count,datatype,source,tag,comm Out request,ierr 非阻塞通信的完成 MPI＿Wait(request,status) In request Out status 组通信 一对一 编写安全的通信 If (rank.eq.0) then Call MPI_Recv(recvbuf,count,real,1,tag,comm,status,ierr) Call MPI_Rend(sendbuf,count,real,1,tag,comm,ierr) Else if (rank.eq.1) Call MPI_Recv(recvbuf,count,real,0,tag,comm,status,ierr) Call MPI_Rend(sendbuf,count,real,0,tag,comm,ierr) Endif 例子 Myid：本身进程号 Numprocs：总的进程数 For(I=myid+1;I=n;I+=numprocs) /*每一个进程计算一部份矩形的面