X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Funres.F;fp=source%2Funres%2Fsrc_MD-M%2Funres.F;h=59c6b64b227b335d85c0ddbd418008e57f6c4d29;hp=f51b2d732df3683331f5f8c66fe18677a4a8bfaf;hb=e12c8db731e266c6e38b2f5883f3ae7c15bbfb98;hpb=e64f51efa7130a5e8e2ade165f9a7615e084bba0

diff --git a/source/unres/src_MD-M/unres.F b/source/unres/src_MD-M/unres.F
index f51b2d7..59c6b64 100644
--- a/source/unres/src_MD-M/unres.F
+++ b/source/unres/src_MD-M/unres.F
@@ -140,11 +140,11 @@ c      if (me.eq.king .or. .not. out1file) then
 c        write (iout,*) "Calling chainbuild"
 c        call flush(iout)
 c      endif
-      call chainbuild
-c      if (me.eq.king .or. .not. out1file) then
-c        write (iout,*) "Calling MD"
-c        call flush(iout)
-c      endif
+!      call chainbuild
+      if (me.eq.king .or. .not. out1file) then
+        write (iout,*) "Calling MD"
+        call flush(iout)
+      endif
       call MD
       return
       end
@@ -159,9 +159,9 @@ c---------------------------------------------------------------------------
       include 'COMMON.CONTROL'
       include 'COMMON.IOUNITS'
       include 'COMMON.REMD'
-      if (me.eq.king .or. .not. out1file)
-     &   write (iout,*) "Calling chainbuild"
-      call chainbuild
+!      if (me.eq.king .or. .not. out1file)
+!     &   write (iout,*) "Calling chainbuild"
+!      call chainbuild
       if (me.eq.king .or. .not. out1file)
      &   write (iout,*) "Calling REMD"
       if (remd_mlist) then