这个很容易实现。
用三个CPU(编号0 1 2)执行程序，在初始化完成之后
0为主进程
两个循环可这样实现，
if myid .eq. 1
do
***
enddo
endif
if myid .eq. 2
do
***
enddo
endif
数据发送和接受用MPI_SEND 和 MPI_RECV实现，具体代码要看你要传递数据的类型，数量等。
你想编好这个程序得简单了解MPI编程的FORTRAN实现
建议你看一本书http://wenku.baidu.com/view/f1e376649b6648d7c1c74636.html
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024