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

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