●编译命令：mpif77-o exam.e example.f ●运行命令：mpirun-np4exam.e ·运行效果：MPI系统选择相同或不同的4个处理机， 在每个处理机上运行程序代码exam.e。 MPI函数 进程0进程1 进程2进程3 InitO) 进入MPI系统 Comm_rank()my_rank=0 myrank=1 myrank=2 my_rank=3 Comm size() D=4 p=4 p=4 p4 tag=5,data=0 tag=5,data-0 tag=5.data-0tag=5,data-0 source=3 source=0 source=1 source=2 dest=1 dest=2 dest=3 数据交换 send() recv( recv( recv() data=data+l send( data=data+l send() data=data+l 消息传递 send() Broadcast() send() recv() recv() recv() output“data Finalize() 退出MPI系统 13 ⚫ 编译命令: mpif77 -o exam.e example.f ⚫ 运行命令: mpirun –np 4 exam.e ⚫ 运行效果：MPI 系统选择相同或不同的 4 个处理机， 在每个处理机上运行程序代码 exam.e。 MPI 函数 进程 0 进程 1 进程 2 进程 3 Init() Comm_rank() my_rank=0 myrank=1 myrank=2 my_rank=3 Comm_size() p=4 p=4 p=4 p=4 tag=5,data=0 tag=5,data=0 tag=5,data=0 tag=5,data=0 source=3 source=0 source=1 source=2 dest=1 dest=2 dest=3 dest=0 数据交换 send() recv() recv() recv() recv() data=data+1 空 send() 闲 data=data+1 等 send() 待 data=data+1 消息传递 send() Broadcast() send() recv() recv() recv() output “data” Finalize() 进入 MPI 系统 退出 MPI 系统