From: Adam Sieradzan <adasko@piasek4.chem.univ.gda.pl>
Date: Fri, 17 Jul 2015 12:16:20 +0000 (+0200)
Subject: bug fix in SCcorr gradient
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=65b670d78bae7c2df18f3465fdad7b4f13490e33;p=unres4.git

bug fix in SCcorr gradient
---

diff --git a/source/unres/energy.f90 b/source/unres/energy.f90
index ba167a1..59b09b7 100644
--- a/source/unres/energy.f90
+++ b/source/unres/energy.f90
@@ -14089,6 +14089,11 @@ write(iout,*) "jestesmy sobie w check eint!!"
         endif     	    	      	                	      	    	   	   	   	 
       enddo
 !alculate derivative of Tauangle
+      do i=1,nres-1
+       do j=1,3
+        dc_norm2(j,i+nres)=-dc_norm(j,i+nres)
+       enddo
+      enddo
 #ifdef PARINTDER
       do i=itau_start,itau_end
 #else