MPI进程间数据传递的一个例子

例子很容易懂,关键是在每个fprintf后面都需要加一个fflush(stderr),否则不能在mpi模式下运行。

#include"mpi.h"
#include<stdio.h>

int main(int argc, char** argv)
{
    int rank, value, size;
    value = 1;
    MPI_Status status;
    char name[MPI_MAX_PROCESSOR_NAME];
    int len;
    MPI_Init(&argc, &argv);
    MPI_Comm_rank(MPI_COMM_WORLD, &rank);
    MPI_Comm_size(MPI_COMM_WORLD, &size);
    //printf("let's begin.....\n");
    MPI_Get_processor_name(name,&len);
    do
    {
    if (rank == 0)
    {
        fprintf(stderr, "\nPlease give me a number=");
        fflush(stderr);
        scanf_s("%d", &value);
        fprintf(stderr, "%d read <-<-  (%d)\n", rank, value);
        fflush(stderr);
        if (size > 1)
        {
            MPI_Send(&value, 1, MPI_INT, rank + 1, 0, MPI_COMM_WORLD);
            fprintf(stderr, "%d send (%d)->->  %d\n", rank, value, rank + 1);
            fflush(stderr);
        }
    }
    else
    {
    MPI_Recv(&value, 1, MPI_INT, rank - 1, 0, MPI_COMM_WORLD, &status);
    fprintf(stderr, "%d receive(%d)<-<-  %d\n", rank, value, rank - 1);
    fflush(stderr);
    if (rank < size - 1)
    {
    MPI_Send(&value, 1, MPI_INT, rank + 1, 0, MPI_COMM_WORLD);
    fprintf(stderr, "%d send (%d)->->   %d\n", rank, value, rank + 1);
    fflush(stderr);
    }
    }
    MPI_Barrier(MPI_COMM_WORLD);

    }while (value >= 0);
    /*if (rank == 0)
    {
        //fprintf(stderr, "name:%s length:%d\n", name, len);
        fprintf(stderr, "\n please give me a number:");
        fflush(stderr);
        scanf_s("%d", &value,1);
    }*/
    MPI_Finalize();
    return 0;
    printf("bye-bye!");
}

当运行4个线程的时候,结果如下:
这里写图片描述
很容易看出来数字在线程间一次传递下去了。

  • 1
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值