X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=inline;f=source%2Fcluster%2Fwham%2Fsrc%2Fchainbuild.f;fp=source%2Fcluster%2Fwham%2Fsrc%2Fchainbuild.f;h=1e72ff886325a16f3d2506f2214e455536fa9c8a;hb=5b0e27e99ac1e61b8b155f3cc6351fac58c391ca;hp=5774ba65f13fa0292ec8f097354dde6b0010d3eb;hpb=664d495e70d14eed4e97f7b8efd2e107dee2fd4e;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)