-!!!!!! 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