Skip to content
Snippets Groups Projects
Commit 625ebff7 authored by Holger Grosshans's avatar Holger Grosshans
Browse files

modified: src/parallel.f90

parent 6a80ea41
No related branches found
No related tags found
No related merge requests found
......@@ -134,6 +134,8 @@
call mpi_wait(rrleft,mpistatus,mpierr)
call mpi_wait(rsright,mpistatus,mpierr)
call mpi_wait(rrright,mpistatus,mpierr)
if (next.eq.mpi_proc_null) n_recvr=0
if (prev.eq.mpi_proc_null) n_recvl=0
if (n_sendl.gt.0) call mpi_isend&
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment