X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2FMREMD.F;h=493dbb59ff6bebec0f7fcb95f1639d8c6268094b;hb=3fd69a41cf75b35e1e548083592cbf11b98d33f7;hp=7a70f1db18105bd964917152be784b46a22d41f9;hpb=26591bffd0d706caeed1e3b49f76215dc2411363;p=unres.git diff --git a/source/unres/src_MD-M/MREMD.F b/source/unres/src_MD-M/MREMD.F index 7a70f1d..493dbb5 100644 --- a/source/unres/src_MD-M/MREMD.F +++ b/source/unres/src_MD-M/MREMD.F @@ -1,4 +1,4 @@ -#define DEBUG +c#define DEBUG subroutine MREMD implicit real*8 (a-h,o-z) include 'DIMENSIONS' @@ -707,7 +707,7 @@ c Update the time safety limiy time02=MPI_WTIME() synflag=.false. - write(iout,*) 'REMD before',me,t_bath +c write(iout,*) 'REMD before',me,t_bath c call mpi_gather(t_bath,1,mpi_double_precision, c & remd_t_bath,1,mpi_double_precision,king,