Wprowadznie potencjalow SC-COR do multichain oraz ich pseudosymetrii dla

[unres.git] / source / unres / src_MD-M / kinetic_lesyng.f

diff --git a/source/unres/src_MD-M/kinetic_lesyng.f b/source/unres/src_MD-M/kinetic_lesyng.f
index 8535f5d..2a340c6 100644 (file)
--- a/source/unres/src_MD-M/kinetic_lesyng.f
+++ b/source/unres/src_MD-M/kinetic_lesyng.f
@@ -44,7 +44,7 @@ c to the velocities of the first Calpha.
         incr(j)=d_t(j,0)
       enddo
       do i=nnt,nct
-        iti=itype(i)
+        iti=iabs(itype(i))
         if (itype(i).eq.10) then
           do j=1,3
             v(j)=incr(j)