From fd89d03f2d7e198b2a1f7507fc6bdeb39509055c Mon Sep 17 00:00:00 2001 From: Adam Sieradzan Date: Mon, 13 Apr 2015 17:12:45 +0200 Subject: [PATCH] poprawka w intcartderiv --- source/unres/src_MD-M/intcartderiv.F | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/source/unres/src_MD-M/intcartderiv.F b/source/unres/src_MD-M/intcartderiv.F index 369a4f0..5aee57e 100644 --- a/source/unres/src_MD-M/intcartderiv.F +++ b/source/unres/src_MD-M/intcartderiv.F @@ -160,6 +160,11 @@ c Obtaining the gamma derivatives from cosine derivative endif enddo Calculate 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 -- 1.7.9.5