X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Fint_from_cart1.f;h=7d266de535d97fb77d5810970fd79c98e21d5249;hb=6afd4863682c2aea9d9b514beab6404c19164a57;hp=4f768e172e615c0bb72f876c199e17bbdc2ea093;hpb=778dcfe88af6061a9d1fc7c11f9e6e30bf36b946;p=unres.git

diff --git a/source/cluster/wham/src/int_from_cart1.f b/source/cluster/wham/src/int_from_cart1.f
index 4f768e1..7d266de 100644
--- a/source/cluster/wham/src/int_from_cart1.f
+++ b/source/cluster/wham/src/int_from_cart1.f
@@ -24,6 +24,9 @@
         enddo
         be=0.0D0
         if (i.gt.2) phi(i+1)=beta(i-2,i-1,i,i+1)
+        if (i.gt.2) tauangle(3,i+1)=beta(i+nres-1,i-1,i,i+nres)
+        if (i.gt.2) tauangle(1,i+1)=beta(i-1+nres,i-1,i,i+1)
+        if (i.gt.2) tauangle(2,i+1)=beta(i-2,i-1,i,i+nres)
         omeg(i)=beta(nres+i,i,maxres2,i+1)
         theta(i+1)=alpha(i-1,i,i+1)
         alph(i)=alpha(nres+i,i,maxres2)