X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Finitialize_p.F;h=2d08087e8e169e0c94cf70b85b9db473489d45eb;hb=b416cd95f5e18db88f1bba9c9de8cf005a6557f4;hp=ea446f71f86f8febc4386c4b083ac0e1b96f8136;hpb=300ba71bc245fd18664d59de0972b36fa1bb50b7;p=unres.git

diff --git a/source/unres/src_MD/initialize_p.F b/source/unres/src_MD/initialize_p.F
index ea446f7..2d08087 100644
--- a/source/unres/src_MD/initialize_p.F
+++ b/source/unres/src_MD/initialize_p.F
@@ -1409,10 +1409,10 @@ c------------------------------------------------------------------------------
       include 'COMMON.CONTROL'
       include 'COMMON.MD'
       include 'COMMON.INTERACT'
-      write(iout,*)"homology_partition: lim_odl=",lim_odl,
-     &   " lim_dih",lim_dih
+cd      write(iout,*)"homology_partition: lim_odl=",lim_odl,
+cd     &   " lim_dih",lim_dih
 #ifdef MPI
-      write (iout,*) "MPI"
+      if (me.eq.king .or. .not. out1file) write (iout,*) "MPI"
       call int_bounds(lim_odl,link_start_homo,link_end_homo)
       call int_bounds(lim_dih-nnt+1,idihconstr_start_homo,
      &  idihconstr_end_homo)