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