X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fkinetic_lesyng.f;h=db959b3b3ecf1143ff08ee38a80bd3c1a4546e16;hb=d2ee52eab91e6055d9cd36a42447313d73b00ea1;hp=44ea85be9498f69d929e6e33dfb02a3e5739d983;hpb=b4662dbad52b91578a5cda22124037728093c6ed;p=unres.git

diff --git a/source/unres/src_MD-M/kinetic_lesyng.f b/source/unres/src_MD-M/kinetic_lesyng.f
index 44ea85b..db959b3 100644
--- 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)