X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fchainbuild.f;h=1e72ff886325a16f3d2506f2214e455536fa9c8a;hb=8edf1bfce4d6b0586a4bde13101f96f48377a5ce;hp=5774ba65f13fa0292ec8f097354dde6b0010d3eb;hpb=2d66111aef48a7db8a87b9f9b3882d640ea53435;p=unres.git

diff --git a/source/cluster/wham/src/chainbuild.f b/source/cluster/wham/src/chainbuild.f
index 5774ba6..1e72ff8 100644
--- 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)