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=fe9e3a2f1191191edd529c64aba73f2b98723a47;hp=5774ba65f13fa0292ec8f097354dde6b0010d3eb;hpb=c89d7d207940ebb57e0042cb35ab65d0f8a4b55e;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)