X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Funres.f90;h=40c0140a0b124e2d675d7b1a18990b919110adb0;hb=bbbdc8e18680625d3004f414aec255e9ca7b7353;hp=deb5713a6ea80228e641af73501fcee3bb53b673;hpb=c43a5a1d5cc1d3f94c53de28dd1fd93bea770790;p=unres4.git

diff --git a/source/unres/unres.f90 b/source/unres/unres.f90
index deb5713..40c0140 100644
--- a/source/unres/unres.f90
+++ b/source/unres/unres.f90
@@ -162,10 +162,11 @@
 #ifdef MPI
       include "mpif.h"
 #endif
+      print *,'Start MD'
       call alloc_MD_arrays
-      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
       call MD
       return
       end subroutine exec_MD
@@ -189,9 +190,9 @@
       call alloc_MD_arrays
       call alloc_MREMD_arrays
 
-      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 
@@ -347,11 +348,12 @@
       else
         print *,'refstr=',refstr
         if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
+        print *,"after rms_nac_ncc"
         call briefout(0,etot)
       endif
       if (outpdb) call pdbout(etot,titel(:32),ipdb)
       if (outmol2) call mol2out(etot,titel(:32))
-!elwrite(iout,*) "after exec_eeval_or_minim"
+      write(iout,*) "after exec_eeval_or_minim"
       return
       end subroutine exec_eeval_or_minim
 !-----------------------------------------------------------------------------