X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Feconstr_local.F;h=88de3107576aaa7e300eaaffa0a4ba4904bc1754;hb=6f95af5d4a04ea311fb1e784ce812f133dc8f2e5;hp=f11acfbed1638b634b15e44bcbe68e9328818888;hpb=478a9d9a1c99eb3f4bc4ca676ff3162bdd01d633;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