X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Funres.F;h=0e924f7171a12cec203fe6e1de9adab17446d445;hb=3fd69a41cf75b35e1e548083592cbf11b98d33f7;hp=2a828f2ed1a1974f9590a43471585d80e494a76e;hpb=c7a96454a5265471d175bbe066071ac41c8b55c3;p=unres.git

diff --git a/source/unres/src_MD-M/unres.F b/source/unres/src_MD-M/unres.F
index 2a828f2..0e924f7 100644
--- a/source/unres/src_MD-M/unres.F
+++ b/source/unres/src_MD-M/unres.F
@@ -52,7 +52,7 @@ c      call memmon_print_usage()
 
       call init_task
       if (me.eq.king)
-     & write(iout,*)'### LAST MODIFIED  4/25/08 7:29PM by adam'  
+     & write(iout,*)'### LAST MODIFIED  11/22/15 10:36PM by czarek'  
       if (me.eq.king) call cinfo
 C Read force field parameters and job setup data
       call readrtns
@@ -730,10 +730,12 @@ c      enddo
 c      do j=1,3
 c        dc(j,0)=ran_number(-0.2d0,0.2d0)
 c      enddo
+      if (constr_homology.eq.0) then
       usampl=.true.
       totT=1.d0
       eq_time=0.0d0
       call read_fragments
+      endif
       call chainbuild_cart
       call cartprint
       call intout