X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fcheckder_p.F;h=39882d320e8bac8c7fd1cdcdc167f2f8f3f50c14;hb=7a3350f7afbf70b7a90c51580f5327860d877d98;hp=3fc2e62d5b91c3fa55b2911a04c234ba5a38e474;hpb=a70be6e9e57486949af48628f1bc8810bcbe7ce6;p=unres.git

diff --git a/source/unres/src_CSA/checkder_p.F b/source/unres/src_CSA/checkder_p.F
index 3fc2e62..39882d3 100644
--- a/source/unres/src_CSA/checkder_p.F
+++ b/source/unres/src_CSA/checkder_p.F
@@ -520,7 +520,20 @@ c-------------------------------------------------------------------------
      &     +(c(j,i+1)-c(j,i))/dnorm2)
         enddo
         be=0.0D0
-        if (i.gt.2) phi(i+1)=beta(i-2,i-1,i,i+1)
+        if (i.gt.2) then
+        if (i.le.nres) phi(i+1)=beta(i-2,i-1,i,i+1)
+        if ((itype(i).ne.10).and.(itype(i-1).ne.10)) then
+         tauangle(3,i+1)=beta(i+nres-1,i-1,i,i+nres)
+        endif
+        if (itype(i-1).ne.10) then
+         tauangle(1,i+1)=beta(i-1+nres,i-1,i,i+1)
+         omicron(1,i)=alpha(i-2,i-1,i-1+nres)
+         omicron(2,i)=alpha(i-1+nres,i-1,i)
+        endif
+        if (itype(i).ne.10) then
+         tauangle(2,i+1)=beta(i-2,i-1,i,i+nres)
+        endif
+        endif
         omeg(i)=beta(nres+i,i,maxres2,i+1)
         alph(i)=alpha(nres+i,i,maxres2)
         theta(i+1)=alpha(i-1,i,i+1)