X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fintcartderiv.F;h=0b75bf0e5e7ff56e8aa35af3560d72485ab93a6a;hb=d8f9706208157e3247e3800d62272fe69ea06a7f;hp=f78caddcc36f3db4ed57b72fa702881b0cee7448;hpb=1e3c2bda475e5d4031b8dab868bb8bf379a9e388;p=unres.git

diff --git a/source/unres/src_MD-M/intcartderiv.F b/source/unres/src_MD-M/intcartderiv.F
index f78cadd..0b75bf0 100644
--- a/source/unres/src_MD-M/intcartderiv.F
+++ b/source/unres/src_MD-M/intcartderiv.F
@@ -751,6 +751,7 @@ c        c(j,1)=c(j,1)
           c(j,i+nres)=c(j,i)+dc(j,i+nres)
         enddo
       enddo
+C      print *,'tutu'
 c      write (iout,*) "CHAINBUILD_CART"
 c      call cartprint
       call int_from_cart1(.false.)