barrier for receive

diff --git a/source/unres/MREMD.F90 b/source/unres/MREMD.F90
index 9914d9b..87953ac 100644 (file)
--- a/source/unres/MREMD.F90
+++ b/source/unres/MREMD.F90
@@ -756,7 +756,14 @@
            call mpi_barrier(CG_COMM, ierr)
            time01=MPI_WTIME()
             endif
-!!!!!!!!!!!!!!!!!
+!!!!!!!!!!!!!!!!
+           if (me.ne.king) then
+               call mpi_recv(itime_master, 1, MPI_INTEGER,&
+                                   0,101,CG_COMM, status, ierr)
+               call mpi_barrier(CG_COMM, ierr)
+!deb               if (out1file.or.traj1file) then
+!
+            endif
             write(iout,*) icache_all
             if(traj1file) then
               write(iout,*) "before mpi_gather ntwx_cache"