X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fcheckder_p.F;fp=source%2Funres%2Fsrc_MD-M%2Fcheckder_p.F;h=99f00bc317e24232f9718bd7864098196c8bbb9e;hb=8df996bdc4bc56846b3799e9a2d47c24a9273125;hp=32d2366da95bc8580883c764e20d2e97843380d1;hpb=ad2687da4ea0c0ddde6c400a60c4817a689b3dff;p=unres.git

diff --git a/source/unres/src_MD-M/checkder_p.F b/source/unres/src_MD-M/checkder_p.F
index 32d2366..99f00bc 100644
--- a/source/unres/src_MD-M/checkder_p.F
+++ b/source/unres/src_MD-M/checkder_p.F
@@ -395,6 +395,7 @@ c            write (iout,*) "etot11",etot11," etot12",etot12
 c          write(iout,'(2i5,2(a,f15.10))')i,j," etot",etot," etot1",etot1
 	  dc(j,i)=ddc(j)-aincr
           call chainbuild_cart
+C          print *,c(j,i)
 c          call int_from_cart1(.false.)
           if (.not.split_ene) then
             call etotal(energia1(0))