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

[unres.git] / source / cluster / wham / src / chainbuild.f

diff --git a/source/cluster/wham/src/chainbuild.f b/source/cluster/wham/src/chainbuild.f
index 5774ba6..1e72ff8 100644 (file)
--- a/source/cluster/wham/src/chainbuild.f
+++ b/source/cluster/wham/src/chainbuild.f
@@ -208,8 +208,8 @@ C
       include 'COMMON.INTERACT'
       dimension xx(3)
 
-      dsci=dsc(itype(i))
-      dsci_inv=dsc_inv(itype(i))
+      dsci=dsc(iabs(itype(i)))
+      dsci_inv=dsc_inv(iabs(itype(i)))
       alphi=alph(i)
       omegi=omeg(i)
       cosalphi=dcos(alphi)