MPI并行时接收错误问题

xiaoshuaihao666

老师好，我想问下我用MPI并行，想要把进程1的数据输出给进程0，为什么接收到的进程0的数据异常呢？

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	IF(rank==1)THEN             !观察点所处进程不是0进程并且为该观察进程时

02	call MPI_SEND(TmpEx,1,MPI_REAL,0,19,MPI_COMM_WORLD,ierr)!这边进行发送是发送到0进程，0进程进行接收

03	call MPI_SEND(TmpEy,1,MPI_REAL,0,20,MPI_COMM_WORLD,ierr)

04	call MPI_SEND(TmpEz,1,MPI_REAL,0,21,MPI_COMM_WORLD,ierr)

05	call MPI_SEND(TmpHx,1,MPI_REAL,0,22,MPI_COMM_WORLD,ierr)

06	call MPI_SEND(TmpHy,1,MPI_REAL,0,23,MPI_COMM_WORLD,ierr)

07	call MPI_SEND(TmpHz,1,MPI_REAL,0,24,MPI_COMM_WORLD,ierr)

08

ENDIF

09	call MPI_Barrier(MPI_COMM_WORLD,IERR)         !///这边进程同步

10	write(*,*),'发送前','rank号',rank

11	Write(*,'(I3,7e20.10e3)')oby1,Ctime(mstart(num)+mstop(num)-1),TmpHx,TmpHy,TmpHz,&

12	&TmpEx,TmpEy,TmpEz

13	call sleep(3)

14	!!!这边对所传递的数据进行接收,全都在0进程进行接收==================

15	IF(rank==0)THEN

16	call MPI_RECV(TmpEx,1,MPI_REAL,1,19,MPI_COMM_WORLD,STATUS,ierr)

17	call MPI_RECV(TmpEy,1,MPI_REAL,1,20,MPI_COMM_WORLD,STATUS,ierr)

18	call MPI_RECV(TmpEz,1,MPI_REAL,1,21,MPI_COMM_WORLD,STATUS,ierr)

19	call MPI_RECV(TmpHx,1,MPI_REAL,1,22,MPI_COMM_WORLD,STATUS,ierr)

20	call MPI_RECV(TmpHy,1,MPI_REAL,1,23,MPI_COMM_WORLD,STATUS,ierr)

21	call MPI_RECV(TmpHz,1,MPI_REAL,1,24,MPI_COMM_WORLD,STATUS,ierr)

22

ENDIF

23	call MPI_Barrier(MPI_COMM_WORLD,IERR)         !///这边进程同步

24	write(*,*),'接收后','rank号',rank

25	Write(*,*)oby1,Ctime(mstart(num)+mstop(num)-1),TmpHx,TmpHy,TmpHz,&

26	&TmpEx,TmpEy,TmpEz

27

pause 22

xiaoshuaihao666

感谢各位老师，问题已经解决了，是数据精度的问题。