X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2FMREMD.F90;h=e662e63c9cd9ee27eafcbb1dd7c5f6e5013358a7;hb=52d6371a0781ac6214af501666a2fbffbded3a40;hp=9914d9babd0afa1532ac2190f403c99e23ed82d2;hpb=2a2cf0a81468098903fcb64cad0d3f5cd3f6a77f;p=unres4.git

diff --git a/source/unres/MREMD.F90 b/source/unres/MREMD.F90
index 9914d9b..e662e63 100644
--- a/source/unres/MREMD.F90
+++ b/source/unres/MREMD.F90
@@ -744,19 +744,26 @@
            synflag=.true.
            if (me.eq.king .or. .not. out1file) &
             write(iout,*) 'REMD synchro at1',itime,ntwx_cache,Nprocs,nodes
-!!!!!! TRIAL OF MINIM SYNC
-            if (me.eq.king) then
-           do i=1,nodes-1
-              call mpi_isend(itime,1,MPI_INTEGER,i,101, &
-                                      CG_COMM, ireqi(i), ierr)
-!d            write(iout,*) 'REMD synchro with',i
-!d            call flush(iout)
-           enddo
-           call mpi_waitall(nodes-1,ireqi,statusi,ierr)
-           call mpi_barrier(CG_COMM, ierr)
-           time01=MPI_WTIME()
-            endif
-!!!!!!!!!!!!!!!!!
+!!!!!!! TRIAL OF MINIM SYNC
+!            if (me.eq.king) then
+!           do i=1,nodes-1
+!              call mpi_isend(itime,1,MPI_INTEGER,i,101, &
+!                                      CG_COMM, ireqi(i), ierr)
+!!d            write(iout,*) 'REMD synchro with',i
+!!d            call flush(iout)
+!           enddo
+!           call mpi_waitall(nodes-1,ireqi,statusi,ierr)
+!           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"