#include "stdafx.h" #include "mpi.h" #include <string.h> #define BUFLEN 512 int main(int argc, char *argv[]){ int myid, numprocs, next; char buffer[BUFLEN]; MPI_Status status; MPI_Init(&argc,&argv); MPI_Comm_size(MPI_COMM_WORLD,&numprocs); MPI_Comm_rank(MPI_COMM_WORLD,&myid); printf("Process %d of %d\n", myid, numprocs); memset(buffer, 0, BUFLEN*sizeof(char)); //将buffer清空 if (myid == numprocs-1) next = 0; //告诉每一个进程它后一个进程号next是多少 else next = myid+1; // 最后一个进程号numprocs-1的下一个是0。 if (myid == 0){ strcpy(buffer,"hello there"); //将字符串hello there拷贝到buffer中 printf("%d sending '%s' \n",myid,buffer); //输出buffer内容 fflush(stdout); //刷新 MPI_Send(buffer, strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD); 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); }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 sent '%s' \n",myid,buffer);fflush(stdout); } MPI_Finalize(); return 0; }分析以上代码

这是一个使用 MPI 库编写的进程间通信的程序，展示了 MPI_Send 和 MPI_Recv 的基本用法。该程序会在每个进程上输出其 ID，然后进程 0 会向下一个进程发送消息，其他进程会先接收消息，再把消息发送给下一个进程，最后进程 0 会接收最后一个进程发送的消息。

具体分析如下：

1. `#include "stdafx.h"`：引入头文件。

2. `#include "mpi.h"`：引入 MPI 库。

3. `#define BUFLEN 512`：定义缓冲区长度。

4. `int main(int argc, char *argv[])`：主函数。

5. `int myid, numprocs, next;`：定义进程 ID、进程总数和下一个进程 ID。

6. `char buffer[BUFLEN];`：定义缓冲区。

7. `MPI_Status status;`：定义 MPI 状态。

8. `MPI_Init(&argc,&argv);`：MPI 初始化。

9. `MPI_Comm_size(MPI_COMM_WORLD,&numprocs);`：获取进程总数。

10. `MPI_Comm_rank(MPI_COMM_WORLD,&myid);`：获取当前进程的 ID。

11. `printf("Process %d of %d\n", myid, numprocs);`：输出当前进程的 ID 和进程总数。

12. `memset(buffer, 0, BUFLEN*sizeof(char));`：将缓冲区清空。

13. `if (myid == numprocs-1) next = 0; else next = myid+1;`：告诉每一个进程它后一个进程号 next 是多少，最后一个进程号 numprocs-1 的下一个是 0。

14. `if (myid == 0){}`：如果当前进程是进程 0，执行以下代码：

- `strcpy(buffer,"hello there");`：将字符串 "hello there" 拷贝到 buffer 中。
- `printf("%d sending '%s' \n",myid,buffer);`：输出 buffer 内容。
- `fflush(stdout);`：刷新输出缓冲区。
- `MPI_Send(buffer, strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD);`：向下一个进程发送消息，消息内容为 buffer，消息类型为 MPI_CHAR，消息标签为 99。
- `printf("%d receiving \n",myid);`：输出接收信息的提示。
- `fflush(stdout);`：刷新输出缓冲区。
- `MPI_Recv(buffer,BUFLEN,MPI_CHAR,MPI_ANY_SOURCE,99, MPI_COMM_WORLD, &status);`：接收来自任意进程的消息，消息内容存储在 buffer 中，消息类型为 MPI_CHAR，消息标签为 99，MPI_ANY_SOURCE 表示接收来自任意进程的消息。
- `printf("%d received '%s' \n",myid,buffer);`：输出接收到的消息内容。
- `fflush(stdout);`：刷新输出缓冲区。

15. `else{}`：如果当前进程不是进程 0，执行以下代码：

- `printf("%d receiving\n",myid);`：输出接收信息的提示。
- `fflush(stdout);`：刷新输出缓冲区。
- `MPI_Recv(buffer, BUFLEN, MPI_CHAR, MPI_ANY_SOURCE, 99, MPI_COMM_WORLD, &status);`：接收来自任意进程的消息，消息内容存储在 buffer 中，消息类型为 MPI_CHAR，消息标签为 99，MPI_ANY_SOURCE 表示接收来自任意进程的消息。
- `printf("%d received '%s' \n",myid,buffer);`：输出接收到的消息内容。
- `fflush(stdout);`：刷新输出缓冲区。
- `MPI_Send(buffer, strlen(buffer)+1, MPI_CHAR, next, 99, MPI_COMM_WORLD);`：向下一个进程发送消息，消息内容为 buffer，消息类型为 MPI_CHAR，消息标签为 99。
- `printf("%d sent '%s' \n",myid,buffer);`：输出发送的消息内容。
- `fflush(stdout);`：刷新输出缓冲区。

16. `MPI_Finalize();`：MPI 结束。

17. `return 0;`：返回值。