From c247d99d16bc5cd5042c5eb95d46a640d41d473b Mon Sep 17 00:00:00 2001 From: Adam Kazimierz Sieradzan Date: Wed, 18 Jul 2012 05:20:17 -0400 Subject: [PATCH] Revert "poprawka przy liczeniu tau w clustrze" This reverts commit ffcc28c7645550e2a62c0d066271fa1ee8323310. --- source/cluster/wham/src/int_from_cart1.f | 3 --- 1 file changed, 3 deletions(-) diff --git a/source/cluster/wham/src/int_from_cart1.f b/source/cluster/wham/src/int_from_cart1.f index 7d266de..4f768e1 100644 --- a/source/cluster/wham/src/int_from_cart1.f +++ b/source/cluster/wham/src/int_from_cart1.f @@ -24,9 +24,6 @@ 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) -- 1.7.9.5