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=fe9e3a2f1191191edd529c64aba73f2b98723a47;hp=ed14f18e5c4d9530a939a5be27b171d10c7635c6;hpb=c89d7d207940ebb57e0042cb35ab65d0f8a4b55e;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