X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Funres.F;h=83d9588be7746504cf078e58d7e7976b0fc7147d;hb=b4cbf79a56f2fe37d60dd5111b11e6aef2a03fba;hp=b3fe05526a23ff82d9a8e59ddc5e039ada214cb8;hpb=b7c78cdc5ca02a926f9771a0e2541c8152d59d61;p=unres.git

diff --git a/source/unres/src_MD-M/unres.F b/source/unres/src_MD-M/unres.F
index b3fe055..83d9588 100644
--- a/source/unres/src_MD-M/unres.F
+++ b/source/unres/src_MD-M/unres.F
@@ -739,6 +739,8 @@ c      enddo
       print *,'icheckgrad=',icheckgrad
       goto (10,20,30) icheckgrad
   10  call check_ecartint
+      write(iout,*) "kupadupa"
+      call check_ecartint
       return
   20  call check_cartgrad
       return