X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2FMREMD.F90;h=e662e63c9cd9ee27eafcbb1dd7c5f6e5013358a7;hb=52d6371a0781ac6214af501666a2fbffbded3a40;hp=87953ac46b2f5ff51f0c3441640419eb5fe29c50;hpb=fd35db7c256fbcad65a48359dfb34a094eea2c4f;p=unres4.git diff --git a/source/unres/MREMD.F90 b/source/unres/MREMD.F90 index 87953ac..e662e63 100644 --- a/source/unres/MREMD.F90 +++ b/source/unres/MREMD.F90 @@ -744,26 +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) +! 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 +! endif write(iout,*) icache_all if(traj1file) then write(iout,*) "before mpi_gather ntwx_cache"