mpi并行通信阻塞问题

bread31

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

                call mpi_sendrecv(ghp(j,i,k),1,mpi_double_precision,rank_y_last,55,ghp(j,y+i,k),1,mpi_double_precision,rank_y_next,55,mpi_comm_world,status,ierr)
                call mpi_sendrecv(ghp(j,y+i-lap,k),1,mpi_double_precision,rank_y_next,66,ghp(j,i-lap,k),1,mpi_double_precision,rank_y_last,66,mpi_comm_world,status,ierr)
                call mpi_sendrecv(ghm(j,i,k),1,mpi_double_precision,rank_y_last,88,ghm(j,y+i,k),1,mpi_double_precision,rank_y_next,88,mpi_comm_world,status,ierr)
                call mpi_sendrecv(ghm(j,y+i-lap,k),1,mpi_double_precision,rank_y_next,77,ghm(j,i-lap,k),1,mpi_double_precision,rank_y_last,77,mpi_comm_world,status,ierr)

就是一个缓冲区内容输送的问题，每次运行到这里就动不了了。请大家指点一下，谢谢。