X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Feconstr_local.F;h=88de3107576aaa7e300eaaffa0a4ba4904bc1754;hb=300ba71bc245fd18664d59de0972b36fa1bb50b7;hp=f11acfbed1638b634b15e44bcbe68e9328818888;hpb=fd605cbdfa3f7064befd092ee0778cfcb7f0cfed;p=unres.git

diff --git a/source/unres/src_MD/econstr_local.F b/source/unres/src_MD/econstr_local.F
index f11acfb..88de310 100644
--- a/source/unres/src_MD/econstr_local.F
+++ b/source/unres/src_MD/econstr_local.F
@@ -19,14 +19,6 @@ c     MD with umbrella_sampling using Wolyne's distance measure as a constraint
       include 'COMMON.NAMES'
       include 'COMMON.TIME1'
       Uconst_back=0.0d0
-      do i=1,nres
-        dutheta(i)=0.0d0
-        dugamma(i)=0.0d0
-        do j=1,3
-          duscdiff(j,i)=0.0d0
-          duscdiffx(j,i)=0.0d0
-        enddo
-      enddo
       do i=1,nfrag_back
         ii = ifrag_back(2,i,iset)-ifrag_back(1,i,iset)
 c