Merge branch 'adasko' of mmka.chem.univ.gda.pl:unres into adasko

[unres.git] / source / wham / src-M / rmscalc.f

diff --git a/source/wham/src-M/rmscalc.f b/source/wham/src-M/rmscalc.f
index 826167f..eecf900 100644 (file)
--- a/source/wham/src-M/rmscalc.f
+++ b/source/wham/src-M/rmscalc.f
@@ -161,7 +161,7 @@ c-------------------------------------------------------------------------
       do kkk=1,nperm
        nnsup=0
        do i=1,nres
-        if (itype(i).ne.21) then
+        if (itype(i).ne.ntyp1) then
           nnsup=nnsup+1
           do j=1,3
             cc(j,nnsup)=c(j,i)