Running D-aminoacid after passed tests. Still problem with

[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..44ea85b 100644 (file)
--- a/source/unres/src_MD-M/kinetic_lesyng.f
+++ b/source/unres/src_MD-M/kinetic_lesyng.f
@@ -81,7 +81,7 @@ c       write(iout,*) 'KEr_p', KEr_p
 c  The rotational part of the side chain virtual bond
        KEr_sc=0.0D0
        do i=nnt,nct
-        iti=itype(i)
+        iti=iabs(itype(i))
         if (itype(i).ne.10) then
         do j=1,3
          incr(j)=d_t(j,nres+i)