mpi_send函数的使用

Rplay

各位编程大神，小弟最近在学并行代码大编写。在练习mpi_send函数的使用时，遇到了一些问题。源代码很简单，如下：


PROGRAM MAIN
USE mpi
    IMPLICIT NONE

    INTEGER myid,numprocs,rc,stats,ierr
    REAL a(2,2)

    CALL MPI_INIT(ierr)
    CALL MPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr)
    CALL MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr)

    IF(myid==0) THEN
    a(:,:)=0
    ENDIF
   
    IF(myid==1) THEN
    a(:,:)=1
    ENDIF

    IF(myid==0) THEN
        CALL MPI_SEND(a(1,1),16,MPI_REAL,1,10,MPI_COMM_WORLD,ierr)
    ENDIF

    IF(myid==0) THEN
        OPEN(10,FILE="1.txt")
            WRITE(10,*) a(1,1)
        CLOSE(10)
    ENDIF

    IF(myid==1) THEN
        OPEN(11,FILE="2.txt")
            WRITE(11,*) a(1,1)
        CLOSE(11)
    ENDIF

    CALL MPI_FINALIZE(rc)
END

当最后生成的文件打开后，发现数组没有变化，内部通信没有实现。请问有经验的大神们，小弟哪里错了，不胜感激！！

雪花纷飞

你只有发送数据操作，却没有接收操作，mpi_send与mpi_recv要一一对应的。

Rplay

雪花纷飞 发表于 2014-8-10 21:46
你只有发送数据操作，却没有接收操作，mpi_send与mpi_recv要一一对应的。

你的意思就是说，有send的同时也要有recv对应是吧。。。我来试试看

不远行

openmpi不知道好不好用