X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fgradient_p.F;h=7295d2ee648ef9c135a9ded784dd59a42ded0192;hb=dc8aad4b659fef3940a18037dc98775344242ce3;hp=acd4472aa154aa01e7921e4898f3c137341145f7;hpb=c7a96454a5265471d175bbe066071ac41c8b55c3;p=unres.git

diff --git a/source/unres/src_MD-M/gradient_p.F b/source/unres/src_MD-M/gradient_p.F
index acd4472..7295d2e 100644
--- a/source/unres/src_MD-M/gradient_p.F
+++ b/source/unres/src_MD-M/gradient_p.F
@@ -389,6 +389,17 @@ C
           enddo
         enddo
       enddo
+c
+c Initialize the gradients of local restraints
+c
+      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
 C
 C Initialize the gradient of local energy terms.
 C