X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fint_to_cart.f;fp=source%2Funres%2Fsrc_MD-M%2Fint_to_cart.f;h=106458ecf56ce4d64d94a2ad8d7174489266cd73;hb=f038962fbb96e0c2c6f1ccb910373ceddd5b387b;hp=491c676a1e42ad032e65d956bbb1539013bf0fed;hpb=0ef28a0babbfafd06d3977c622ecbe98a5f41e86;p=unres.git

diff --git a/source/unres/src_MD-M/int_to_cart.f b/source/unres/src_MD-M/int_to_cart.f
index 491c676..106458e 100644
--- a/source/unres/src_MD-M/int_to_cart.f
+++ b/source/unres/src_MD-M/int_to_cart.f
@@ -14,6 +14,7 @@ c-------------------------------------------------------------
       include 'COMMON.MD'
       include 'COMMON.IOUNITS'
       include 'COMMON.SCCOR' 
+      include 'COMMON.CONTROL'
 c   calculating dE/ddc1     
 C       print *,"wchodze22",ialph(2,1) 
        if (nres.lt.3) go to 18
@@ -275,6 +276,13 @@ c  Settind dE/ddnres
         enddo
        endif
 c   The side-chain vector derivatives
+      if (SELFGUIDE.gt.0) then
+      do j=1,3
+C       gcart(j,afmbeg)=gcart(j,afmbeg)+gcart(j,afmend)
+       gcart(j,afmbeg)=0.0d0
+       gcart(j,afmend)=0.0d0
+      enddo
+      endif
       return
       end