[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)