X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fcartder.f;fp=source%2Fwham%2Fsrc-M%2Fcartder.f;h=693fd605abab3f69a562e1b0647282b1553fb4f8;hb=5b0e27e99ac1e61b8b155f3cc6351fac58c391ca;hp=ed14f18e5c4d9530a939a5be27b171d10c7635c6;hpb=664d495e70d14eed4e97f7b8efd2e107dee2fd4e;p=unres.git

diff --git a/source/wham/src-M/cartder.f b/source/wham/src-M/cartder.f
index ed14f18..693fd60 100644
--- a/source/wham/src-M/cartder.f
+++ b/source/wham/src-M/cartder.f
@@ -263,7 +263,7 @@ cd        print '(3f8.3)',(dcdv(k,ind1),k=1,3)
 * Derivatives in alpha and omega:
 *
       do i=2,nres-1
-	dsci=dsc(itype(i))
+	dsci=dsc(iabs(itype(i)))
 	alphi=alph(i)
 	omegi=omeg(i)
 cd      print *,'i=',i,' dsci=',dsci,' alphi=',alphi,' omegi=',omegi