X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fcheckder_p.F;h=08b7a3233ebd6adb8096eeace50229b4b33dc726;hp=fda3a7b3a65530d882a7bfd57b0677a6394c2bf9;hb=050ed1574772b7d2bdee4225feda68c312beca75;hpb=7359d54981227ebc66af5d3d191e098b7357d92e

diff --git a/source/unres/src_MD/checkder_p.F b/source/unres/src_MD/checkder_p.F
index fda3a7b..08b7a32 100644
--- a/source/unres/src_MD/checkder_p.F
+++ b/source/unres/src_MD/checkder_p.F
@@ -540,6 +540,8 @@ C        print *,i,omicron(1,i),omicron(2,i)
          tauangle(2,i+1)=beta(i-2,i-1,i,i+nres)
         endif
         endif
+c        write (2,*) "i",i,tauangle(1,i+1),tauangle(2,i+1),
+c     &     omicron(1,i),omicron(2,i)
         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)