small changes

[unres.git] / source / unres / src_MD-M / unres.F

diff --git a/source/unres/src_MD-M/unres.F b/source/unres/src_MD-M/unres.F
index f51b2d7..59c6b64 100644 (file)
--- 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